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ABSTRACT 


Three  lower  confidence  interval  estimation  procedures  for  system  reliability  of  co¬ 
herent  systems  with- cyclic  components  are  developed  and  their  accuracy  measured  using 
Monte  Carlo  techniques.  The  procedures  use  either  the  Poisson  approximation  to  the 
Binomial  distribution,  the  lower  Binomial  confidence  limit  procedure,  or  a  modified 
procedure  using  the  Poisson  approximation  to  the  Binomial  distribution  to  obtain  an 
equation  for  the  lower  confidence  limit.  The  accuracy  of  the  interval  estimators  were 
evaluated  using  standard  computer  simulation  methods  for  series,  parallel,.  series- 
parallel,  and  Wheatstone  Bridge  systems.  The  method  determined  to  be  most  accurate 
can  be  combined  with  similar  procedures  for  components  that  have  continuous  failure 
times  and  applied  to  yield  a  lower  confidence  interval  procedure  for  the  reliability  of 
coherent  systems  with  cyclic  and  continuously  operating  components. 
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THESIS  DISCLAIMER 

The  reader  is:  cautioned  that  computer  programs  developed  in  this  research  may  not 
have  been  exercised  for  all  cases  of  interest.  While  ever}’  effort  has  been  made,  within 
the  time  available,  to  ensure  that  the  progiams  are  free  of  computational  and  logic  er¬ 
rors,  they  cannot  be  considered  validated.  Any  application  of  these  programs  without 
additional  verification  is  at  the  risk  of  the  user. 


TABLE  OF  CONTENTS 

I.  INTRODUCTION  . 1 

II.  PREFERRED  LOWER  CONFIDENCE  LIMIT  FOR  SYSTEM  RELIABIL¬ 
ITY  . 5 

A.  METHODOLOGY  . 5 

B.  RESULTS  . 8 

1.  Series  System  . 8 

2.  Series-Parallel  Systems  . - . . . 10 

3.  Series-Parallel  Systems  with  a  2:  of  3  Parallel  Component  . 10 

4.  Parallel  System  . 12 

5.  Wheatstone  Bridge  . 13 

III.  ALTERNATE  PROCEDURE  A  FOR  THE  LOWER  CONFIDENCE  LIMIT 

FOR  SYSTEM  RELIABILITY  . 15 

A.  METHODOLOGY  . 15 

B.  RESULTS  . 15 

IV.  ALTERNATE  PROCEDURE  B  FOR  THE  LOWER  CONFIDENCE  LIMIT 

FOR  SYSTEM  RELIABILITY  . 18 

A.  METHODOLOGY . 18 

B.  RESULTS  . 18 

V.  SIMULATION  . 21 

VI.  CONCLUSIONS  AND  RECOMMENDATIONS  . 22 

APPENDIX  A.  DISCRETE  CONFIDENCE  LIMIT  PROPERTIES  . 23 

APPENDIX  B.  INPUT  PARAMETERS  . 25 


APPENDIX  C.  FORTRAN  CODE  FOR  THE  PREFERRED  LOWER  CONFI¬ 
DENCE  LIMIT  FOR  SYSTEM  RELIABILITY  (SERIES  SYSTEM  AND 
WHEATSTONE  BRIDGE  SYSTEM)  .  . 29 

APPENDIX  D.  FORTRAN  CODE  FOR  THE  PREFERRED  LOWER  CONFI¬ 
DENCE  LIMIT  FOR  SYSTEM  RELIABILITY  (SERIES  PARALLEL  SYSTEM)  43 

APPENDIX  E.  FORTRAN  CODE  FOR  THE  PREFERRED  LOWER  CONFI¬ 
DENCE  LIMIT  FOR  SYSTEM  RELIABILITY  (SERIES-PARALLEL  SYSTEM 
WITH  A  2/3  COMPONENT  . 58 

APPENDIX  F.  FORTRAN  CODE  FOR  THE  PREFERRED  LOWER  CONFI¬ 
DENCE  LIMIT  FOR  SYSTEM  RELIABILITY  (PARALLEL  SYSTEM) . 73 

APPENDIX  G.  FORTRAN  CODE  FOR  ALTERNATE  PROCEDURE  A  FOR 
ESTIMATING  THE  LOWER  CONFIDENCE  LIMIT  FOR  SYSTEM  RELI¬ 
ABILITY  . 88 

APPENDIX  H.  FORTRAN  CODE  FOR  ALTERNATE  PROCEDURE  B  FOR 
ESTIMATING  THE  LOWER  CONFIDENCE  LIMIT  FOR  SELECTED  SYS¬ 
TEMS  . 102 

APPENDIX  I.  SUBROUTINES  . 117 

LIST  OF  REFERENCES  . 121 

BIBLIOGRAPHY  . 122 

INITIAL  DISTRIBUTION  LIST  . 123 


VI 


LIST  OF  TABLES 

Table  1.  SERIES  SYSTEM  . . . . . . . . 9 

Table  2.  SERIES-PARALLEL  SYSTEM  . . 10 

Table  3.  SERIES-PARALLEL  WITH  A  2  OUT  OF  3  COMPONENT  SYSTEM  1 1 
Table  4.  SERIES-PARALLEL  WITH  A  2  OUT  OF  3  COMPONENT  SYSTEM 
(CONSTANT  NUMBER  OF  MISSION  TESTS,  DECREASING  RELI¬ 
ABILITY)  . . 12 

Table  5.  PARALLEL  SYSTEM  . . . . . 13 

Table  6.  WHEATSTONE  BRIDGE  SYSTEM  . . 14 

Table  7.  COMPARISON  OF  PREFERRED  PROCEDURE  AND  ALTERNATE 

PROCEDURE  A  (SERIES  SYSTEM)  . . . 16 

Table  8.  COMPARISON  OF  PREFERRED  PROCEDURE  AND  ALTER¬ 
NATE  PROCEDURE  A  (WHEATSTONE  BRIDGE) . 17 

Table  9.  COMPARISON  OF  PREFERRED  PROCEDURE  AND  ALTERNATE 

PROCEDURE  B  (SERIES  SYSTEM)  . 19 

Table  10.  COMPARISON  OF  PREFERRED  PROCEDURE  AND  ALTER¬ 
NATE  PROCEDURE  B  (WHEATSTONE  BRIDGE)  . 20 

Table  11.  SERIES  SYSTEM  INPUT  PARAMETERS  .  . . 25 

Table  12.  SERIES-PARALLEL  SYSTEM  INPUT  PARAMETERS  . 26 

Table  13.  SERIES-PARALLEL  WITH  A  2  OUT  OF  3  COMPONENT  SYSTEM 

INPUT  PARAMETERS  . 27 

Table  14.  PARALLEL  SYSTEM  INPUT  PARAMETERS  . 28 

Table  15.  WHEATSTONE  BRIDGE  INPUT  PARAMETERS  . 28 


LIST  OF -FIGURES 

Figure  I.  Series  System  . . -2 

Figure  2.  Series-Parallel  System  . 3 

Figure  3.  Series  Parallel  With  Two  Out  of  Three  Subcomponent  System  . 3 

Figure  4.  ParalleKSystem  . .  . . . . . . —  3 

Figure  5.  Wheatstone  Bridge  . .4 

Figure  6.  Behavior  of  . 24 


vui 


I.  INTRODUCTION 


Coherent  systems  are  those  systems  for  which  the  system  performs  if  all  components 
function,  the  system  fails  if  all  the  components  fail,  replacing  a  failed  component  with  a 
working  component  does  not  cause  the  system  to  fail  and  similarly  replacing  a  working 
component  with  a  failed  component  does  not  cause  the  system  to  work  [Ref.  1:  p.  343]. 
The  reliability  of  a  coherent  system  is  not  reduced  when  the  reliability  of  its  components 
is  increased.  Cyclic  components  are  those  whose  function  is  measured  on  a  pass-fail 
basis  and  whose  reliability  is  computed  from  a  discrete  probability  distribution,  usually 
the  Geometric  distribution. 

The  problem  of  obtaining  confidence  limits  on  the  reliability  of  a  coherent  system 
based  on  data  gathered  on  its  individual  components  has  attracted  considerable  interest. 
Confidence  bounds  for  the  reliability  of  series  systems  have  been  obtained 
asymptotically,  based  on  methods  such  as  Likelihood  Ratio,  Maximum  Likelihood,  or 
Modified  Maximum  Likelihood.  Asymptotic  methods  are  inaccurate  at  higher 
percentiles  unless  the  component  sample  sizes  are  large.  Bayesian  methods  have  been 
developed  for  this  problem,  but  they  are  extremely  sensitive  to  the  selection  of  the  prior 
distribution.  [Ref.  2:  p.  21] 

Exact  confidence  limits  have  been  obtained  for  simple  systems.  This  solution  re¬ 
quires  that  the  reliability  of  at  least  one  of  the  components  has  to  be  greater  than  that 
of  the  system.  However,  identifying  such  a  component  becomes  quite  complex  for  all 
but  simple  systems  composed  of  no  more  than  two  or  three  components  [Ref.  3:  p.  220]. 
Exact  methods  have  also  been  developed  for  series  systems  using  asymptotic  approaches 
and  the  unbiased  minimum  \ariance  estimators  of  the  probability  of  success,  /?,  based 
on  Binomial  data  [Ref.  4:  p.  782]. 

Unfortunately,  none  of  the  above  referenced  interval  estimation  procedures  based 
on  discrete  data  can  be  readily  used  in  conjunction  with  the  data  of  components  that 
have  continuous  failure  times.  Therefore  it  is  difficult  to  obtain  interval  estimates  for 
the  reliability  of  complex  systems  that  have  mixtures  of  cyclic  components  and  compo¬ 
nents  that  operate  continuously.  The  methods  developed  in  this  thesis  can  be 
combined  with  similiar  methods  that  use  continuous  data,  namely  those  developed  by 
Lee  [Ref.  5].  The  combination  of  these  methods  may  provide  interval  estimation  for  the 
reliability  of  systems  with  cyclic  and  continuously  operating  components. 
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in  this  thesis,  three  procedures  that  provide  lower  confidence  limits  for  the  reliability 
of  coherent  systems  with  cyclic  components  were  analyzed.  These  procedure1:  use  only 
discrete  data.  There  is  a  problem  with  using  component  data  to  establish  system  reli¬ 
ability,  especially  for  a  system  that  has  quite  a  bit  of  redundancy.  Even  though  the 
tested  components  fail  individually  and  their  estimated  reliabilities  arc  moderate,  had 
these  components  been  assembled  into  a  system,  the  system  could  very  well  have 
worked.  In  such  a  ease,  the  system  has  a  very  high  degree  of  reliability  and  methods  that 
work  well  in  estimating  the  more  moderate  component  reliability  will  not  woik  well  in 
estimating  the  system  reliability.  Thus,  each  procedure  that  we  study  has  modifications 
to  accommodate  component  test  data  which  when  assembed  into  systems  would  exhibit 
zero  system  failures,  one  system  failure,  or  more  than  one  system  failure,  i.c. 

•  no  component  failures  occur  or  only  components  fail  that  arc  redundant  in  the 
system,  so  that  no  system  failure  could  occur  if  all  the  components  were  combined 
to  form  systems, 

•  exactly  one  component  fails  that  would  result  in  a  system  failure  or  redundant 
components  in  the  system  fail  in  a  quantity,  so  that  no  more  than  one  system  fail¬ 
ure  could  occur  if  the  components  were  combined  to  form  systems  (this  modifica¬ 
tion  is  explained  in  more  detail  in  the  following  chapters), 

•  for  any  component,  i,  more  than  one  component  fails  out  of  n,  tested  which  would 
lead  to  more  than  one  system  failure. 

The  systems  analyzed  in  this  thesis  arc  as  follows: 

•  all  components  arranged  in  series  (sec  Figure  1) _ 


Figure  1.  Series  System 

•  all  components  arranged  in  series  with  at  least  one  component  consisting  of  two 
parallel  subcomponents  (sec  Figure  2) 


Figure  2.  Series-Parallel  System 


•  all  components  arranged  in  series  with  at  least  one  component  consisting  of  two 
parallel  subcomponents  and  at  least  one  component  in  a  two  out  of  three  sub¬ 
component  parallel  arrangement  (see  Figure  3) 


<  i 

i _ i 

i  i 

i _ ! 

*  I 

! _ ! 


Figure  4.  Parallel  System 


•  a  five  component  redundant  system  commonly  referred  to  as  a  Wheatstone  lit  idee 

(see  Figure  5)^ 


Figure  5.  Wheatstone  Bridge 
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II.  PREFERRED  LOWER  CONFIDENCE  LIMIT  FOR  SYSTEM 

RELIABILITY 

A.  METHODOLOGY 

The  procedure  selected  to  determine  the  lower  confidence  limit  of  relatively  simple 
complex  systems  uses  a  method  employed  by  Lomnicki  [Ref.  6:  p.  109]  and  extended  by 
Myhre  and  others  [Ref.  2:  p.  213].  It  uses  the  Poisson  approximation  to  the  Binomial 
distribution  when  numerous  component  failures  occur  that  would  result  in  multiple  sys¬ 
tem  failures  if  the  tested  components  were  assembled  into  systems.  In  cases  where  zero 
system  failures  occur  or  only  one  system  failure  could  result  from  the  failed  components, 
the  Poisson  approximation  appears  to  be  conservative  and  the  lower  confidence  limit  is 
computed  using  the  Binomial  distribution  directly. 

Suppose  a  coherent  system  has  k  different  tjpes  of  components  that  are  statistically 
independent.  Test  data  is  available  on  each  type  of  component.  The  n ,  tests  for  com¬ 
ponent  i  are  assumed  to  be  independent  Bernoulli  trials  with  probability  of  failure,  q„  for 
each  test.  Therefore  the  number  of  failures,  F„  in  these  n,  tests  has  a  Binomial  distrib¬ 
ution. 

Any  of  the  k  components,  say  component  m,  can  be  chosen  as  a  base  component 
and  q,  expressed  as  a  fraction  or  multiple,  a„  of  q„.  That  is 

qt  =  Wm-  (2-1) 

Suppose  it  is  appropriate  to  assume  that  the  probability  distribution  of  the  number  of 
failures  of  each  component,  F„  can  be  approximated  by  the  Poisson  distribution  with 

A 

mean  n,q,.  If  F=  £F„  then  from  Equation  (2.1),  the  distribution  of  F  is  approximately 

I*  l  A 

Poisson  with  parameter  qmY.nflr  Consequently  the  mean  of  F,  E(F),  is  given  by 

(=1 

k 

E{F)  =  qj^nfli  (2.2) 

i=l 

The  system  reliability,  R„  can  be  defined  as  a  function  of  the  unreliability,  qm  and  the 
q, 

associated  values  a,.  =  — .  That  is, 

Hm 

^  =  (2-3) 
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By  definition,  h  is  non-increasing  in  qm,  because  the  system  is  coherent.  If  au  a2,...,  ak 
are  known,  an  approximate  lower  confidence  limit,  may  be  obtained  from  an  up¬ 
per  confidence  limit,  qmMt),  for  qm  by  the  equation 

A  A 

=  '  a2>'">  ak)  (2-4) 


When  appropriate,  the  upper  confidence  limit,  qm> VM,  may  be  obtained  from  the  well 
known  upper  confidence-limit  for  the  mean,  of  a  Poisson  distribution,  namely,  iff  is 
distributed  POISSON^.)  then 


/ 


</<*)“ 


X 


2 

a,  2(1+/) 


2 


(2.5) 


where  X*i2ll_0  is  the  (1  -  a)  quantile  of  a  Chi-square  probability  distribution  with  degrees 
of  freedom  equivalent  to  2(1  +  F),  where  F  is  the  number  of  system  failures.  From 

k 

Equation  (2.2),  substitution  of  q^nfl,  for  ).  into  Equation  (2.5)  gives 

7=1 


l/(a) 


v2 

Aa,2(l +F) 


k 


i=l 


(2.6) 


If  the  a are  unknown  then  an  approximate  upper  confidence  limit,  q is  given  by 


A  _ 


X 


2 

a,  2(1+/) 


(2.7) 


where  a,  is  an  estimator  for  a„  i—  1,2,. ..,k. 

The  Poisson  approximation  to  the  Binomial  distribution  is  conservative  when  all  F, 
equal  zero  or  redundant  components  of  the  system  fail  in  such  a  way  that  results  in  zero 
system  failures.  In  this  case,  let  n*  represent  the  number  of  system  tests  equivalent  to 
testing  each  component  nt  times,  /=  Then  the  distribution  of  s,  the  number  of 
system  tests  that  would  have  been  successful,  is  approximately  Binomial(«*,/y.  If  5  is 
distributed  BINOMIAL^*,#,)  then  we  can  use  the  binomial  lower  confidence  limit 


Rs.U*)  ~ 


(2.8) 
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to  compute  the  lower  confidence  limit  for  system  reliability.  The  following  two  methods 
for  the  calculation  of  the  number  of  equivalent  system  tests,  rr,  were  selected  and  each 
applied  separately  using  Equation  (2.8). 

/ij*  =  min(«],  m2)—,  »k)  (2-9) 

k 

(2.10) 

where  n,  is  the  number  of  tests  of  component  /. 

Some  instances  of  component  failures  could  only  result  in  one  equivalent  system 
failure  if  all  of  the  tested  components  were  combined  into  complete  systems.  In  this 
case,  we  again  define  «*  and  treat  tv'  system  trials  with  one  failure.  The  resulting  lower 
confidence  limit,  Rs,Lm,  for  system  reliability  is  the  solution  for  p  =  (1  -  q)  in  the  equation 

«-  X  (f)(l  (2.11) 

In  the  Wheatstone  Bridge  case,  two  or  more  component  failures  among  the  tested 
components  could  result  in  one  system  failure  if  the  components  are  assembled  into 
Wheatstone  systems.  In  this  case  we  set  n*  =  n*  for  one  interval  procedure  and 
n*  =  n  *  for  the  second  interval  procedure. 

In  a  series  system,  n*  is  equal  to  the  number  of  tests  performed  on  the  failed  single 
component,  because  the  reliability  of  the  system  is  determined  largely  by  the  reliability 
of  the  least  reliable  component.  Since  it  is  difficult  to  solve  for  p  in  Equation  (2.11),  an 
equivalent  equation  using  the  Snedecor  F  distribution  is  used.  Thus, 

l(x)  =  T+TT+Tyf  (2-  ^ 2) 

where  s  is  the  number  of  system  successes,  /  is  the  number  of  system  failures,  and 
is  the  a  quantile  of  the  Snedecor  F  distribution  with  2 (/>  1)  and  2s  degrees 
of  freedom  [Ref.  7;  p.  43). 


B.  RESULTS 

The  accuracy  of  this  procedure  was  evaluated  using  computer  simulations  for  each 
of  the  following  systems  described  in  Section  A: 

•  series  systems 

•  series  svtems  where  the  second  component  is  composed  of  two  parallel  subcompo¬ 
nents 

•  series  systems  where  the  second  component  is  composed  of  two  parallel  subcom¬ 
ponents  and  the  fourth  component  consists  of  a  two  of  three  subcomponent  par¬ 
allel  arrangement 

•  parallel  systems 

•  Wheatstone  Bridge 

Groups  of  test  data  were  generated  where  the  parameters,  q,  and  n,  were  chosen  to 

W  k 

control  the  expected  number  of  failures,  £[f]  =  Tn,qt.  Confidence  levels  of  0.20  and  0.05 

i=l 

were  used  in  each  case.  A  total  of  100.0  replications  were  generated  for  each  set  of  pa- 

A  A 

rameter  values.  Each  replication  produced  one  value  of  R,M,y  These  1000  values, 

A 

were  ordered  and  used  to  get  the  simulated  probability  distribution  of  R,M,r  The  simu¬ 
lation  procedures  are  described  in  Chapter  IV.  The  SO'*  and  95'*  percentile  point  of  the 

A 

simulated  probability  distribution  of  RUm  was  compared  to  R,  for  determining  the  ac- 

A 

curacy  of  the  procedure.  This  comparison  is  made  because  Rs  LM  is  the  lower 

,  A 

100(1  -  a)  percentile  confidence  limit  for  Rs  if  1  -  a  =  P{R,,Lm  ^  R,)-  This  equation  states 

A 

that  Rs  is  the  100(1  —  a)  percentile  point  of  the  probability  distribution  of  R,,LM.  The 
"true  confidence  level"  is  the  percentile  point  of  the  simulated  distribution  corresponding 
to  the  true  value  of  Rt. 

The  parameter  values  «,<?,,  n2q2y ...,  n,qt  determine  a  case  number  and  are  labeled  as 
such  in  the  tables  that  describe  the  simulation  results.  A  summary  table  that  provides 
the  parameter  values,  q,  and  n, ,  is  given  in  Appendix  B. 

All  tables  report  the  SO"1  and  95"‘  percentile  points  of  the  simulated  distribution  of 

A  A  / 

Rum  and  appear  in  the  tables  under  the  column  labeled  R/Xw. 

1.  Series  System 

By  definition,  the  reliability,  Rs,  for  a  series  system  of  k  independent  components 
is 

k  k 

pis) 

i=t  t=i 
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The  corresponding  lower  confidence  limit  is  given  by 

;• 

=  —  (2.-1 4) 

/=i 

These  formulae  are  used  to  calculate  the  reliability  when  at  least  two  components  fail. 
If  zero  components  fail  Equation  (2.8)  is  used  and  if  one  component  fails  Equation 
(-2.12)  is  used.  The  results  are  presented  in  Table  I.  In  Table  1,  column  1  of  R*Mt)  is 
calculated  using  Equation  (2.10)  and  column  2  is  calculated  using  Equation  (2.9)  for  n* 
when  the  component  failures  equate  to  zero  system  failures. 


Table  1.  SERIES  SYSTEM 


Case 

u 

Compts 

EIF] 

R, 

a 

Level 

Xtn 

True  Confidence 
Level 

1 

5 

1.03 

.95572 

.20 

,91447 

.90345 

75 

75 

.05 

.85140 

HU 

100 

■ 

10 

1.2 

.93206 

.20 

.88491 

100 

100 

.05 

.85140 

100 

100 

3 

5 

4.9 

.95034 

.20 

.95361 

.95361 

76 

76 

.05 

.95969 

.95969 

90 

90 

■ 

10 

H 

.85951 

.20 

.85369 

.85369 

85.2 

85.2 

.05 

.86718 

.86089 

94.5 

mm 

5 

5 

5.74 

.95084 

.20 

.95036 

.95036 

76.3 

76.3 

.05 

.95779 

91.1 

91.1 

6 

10 

5.75 

85951 

.20 

.85910 

.859.0 

80  1 

80.1 

.05 

.88114 

.88072 

92.5 

92.6 

■ 

5 

10.5 

.8582$ 

.20 

.87174 

.87174 

72.4 

72.4 

.05 

.88366 

.88366 

86.6 

8-  ' 

8 

10 

10.5 

.85951 

.20 

.87137 

.87137 

73.3 

73.3 

.05 

.89049 

86.4 

86.4 

In  some  cases  the  true  confidence  level  equals  100 .  This  is  not  uncommon  for  confi¬ 
dence  intervals  based  on  discrete  data  and  is  further  explained  in  Appendix  A. 
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2.  Series-Parallel  Systems 

A  modification  wasmade  to  the  series  systems  to  form  theseries-parallel  system. 
The  second  component  in  the  series  was  modified  to  consist  of  two  parallel  subcompo¬ 
nents  of  equal  unrelibility,  q2t.  For  the  second  component  to  Fail  both  subcomponents 
must  fail.  The  unreliability  of  component  two  is  q].  Since  component  two  is  in  series 
with  the  other  components  the  corresponding  lower  confidence  limb  is  calculated  using 
Equation  (2.8)  when  the  equivalent  number  of  system  failures  is  zero,  Equation  (2.12) 
when  the  number  of  system  failuresis  one,  and  Equation  (2.14)  is  used  in  all  other  cases. 

A  / 

The  results  are  presented  in  Table  2.  In  Table  2,  column  1  of  R,M  is  calculated  using 
Equation  (2.10)  and  column  2  is  calculated  using  Equation  (2.9)  for  n*  when  the  com¬ 
ponent  failures  equate  to  zero  system  failures. 


Table  2.  SERIES-PARALLEL  SYSTEM 


Case 

a 

Compts 

D 

a 

Level 

- 

i> 1 

True  Confidence 
Level 

9 

5 

1.03 

.95572 

.20 

.91447 

.90345 

75 

75 

.05 

.85140 

.8*140 

ioO 

100 

10 

10 

2.72 

.93206 

.20 

.'•5770 

.95770 

64.5 

64.5 

.05 

.95344 

.95344 

74.4 

64.5 

11 

5 

H 

.85828 

.20 

.85369 

.85369 

83.5 

83.5 

.05 

.S66S5 

.86089 

94.2 

94.3 

12 

10 

4.9 

m 

.20 

.85546 

.85546 

83.1 

83  1 

.05 

.866S5 

.86635 

94.1 

94.1 

13 

5 

9.79 

.950S4 

.20 

76.S 

76.8 

.05 

.95779 

.96029 

88.6  • 

88.6 

14 

10 

.20 

.85943 

.86943 

75.2 

75.2 

.05 

.88606 

.88606 

87.6 

87.6 

Note  the  accuracy  of  the  lower  confidence  interval  is  somewhat  reasonable  when  the 
expected  number  of  failures  exceeds  4.9  in  both  the  series  and  series-parallel  systems. 

3.  Series-Parallel  Systems  with  a  2  of  3  Parallel  Component 

Another  modification  was  made  to  the  five  and  ten  component  series  systems. 
The  third  component  in  the  series  was  modified  and  now  consists  of  three  parallel  sub¬ 
components  of  equal  unreliability,  qir  For  this  component  to  fail,  two  or  three  parallel 
components  must  fail.  The  unreliability,  qit  of  component  three  is  (!)(1  -  + q]r 
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The  fourth  component  of  each  system  :'s  composed  or  two  parallel  subcomponents  as 
defined  in  the  series-parallel  system.  Since  these  components  are  in  series  with  the  other 
components,  the  corresponding  lo\\er=confidence  limit  is  calculatedmsing  the  same  series 
of  equations  as  the  series-parallel  system.  T.  results  are  presented  in  Table  3.  The 
term  n*  is  computed  from  Equation  (2.10)  h  >  *  equivalent  number  of  svstemfail- 

ures  is  zero. 


Table  3.  SERIES-PARALLEL  WITH  A  2  u'.JT  OF  3  COMPONENT  SYSTEM 


Case 

n 

Compts 

EtF] 

R, 

HM 

T>7 

l'U{7) 

True  Confidence 

I  evel 

H 

5 

.8S 

.96525 

;  .2f 

.91447 

100 

.05 

.85140 

100 

16 

10 

2.6 

.94136 

;  .2\> 

.95770 

63.7 

.05 

S5.7 

17 

5 

3.21 

.96035 

.20 

.95937 

80.4 

.05 

.96877 

88.5 

18 

10 

.88945 

.20 

.88582 

80.9 

■9 

.91735 

89.5 

■ 

5 

6.17 

.96035 

.20 

.96126 

7S.S 

.05 

mKSSHl 

20 

10 

8.37 

m 

.20 

.89734 

76.7 

.05 

.91817 

87.8 

Another  series  of  simulations  were  conducted  on  these  systems.  For  each  case 
previously  run,  new  cases  were  defined  by  decreasing  the  unreliability  of  selected  com¬ 
ponents  without  changing  the  number  of  component  tests.  These  changes  result  in  a 
decrease  in  the  number  of  expected  failures  and  an  increase  in  the  reliability  of  the  sys¬ 
tem.  The  results  are  presented  in  Table  4.  The  term  n*  is  computed  from  Equation 
(2.10)  when  the  equivalent  number  of  system  failures  is  zero. 


Table  4.  SERIES- PARALLEL  WITH  A  2  OUT  OF  3  COMPONENT  SYSTEM 
(CONSTANT  NUMBER  OF  MISSION  TESTS,  DECREASING  RELI¬ 
ABILITY)  _ 


n 

Compts 

Em 

R, 

C'. 

Level 

«,  / 

R<.Us) 

True  Confidence 
Level 

21 

10 

.51 

.99136 

.20 

.97661 

.05 

.95690 

hheshh 

22 

10 

■ 

.96836 

.20 

.97661 

72.3 

.05 

.95690 

96.3 

23 

10 

6.57 

.95430 

.20 

;95497  ‘  77.2 

.05 

.96169  •  91.3 

24 

10 

9.90 

.90249 

.20 

.90515 

78.9 

.05 

.91486 

91.6 

Tables  3  and  4  indicate  that  for  E(F)  >  5  the  lower  confidence  limits  are  reasonably  ac¬ 
curate. 

4.  Parallel  System 

The  accuracy  of  the  lower  confidence  procedure  was  evaluated  when  it  was  ap¬ 
plied  to  a  five  component  syste  -  with  each  component,  7,  in  parallel  with  the  others. 
The  unreliabilities,  q,  of  each  to:  lponent  are  equal  and  the  unreliability  of  the  system  is 
defined  as  </s.  For  the  system  to  fail  all  five  components  must  fail.  The  ress.;.^  of  the 
computer  simulations  are  presented  in  Table  5.  The  term  n*  is  computed  from  Equation 
(2.10)  when  the  equivalent  number  of  system  failures  is  zero.  If  n  of  these  components 
are  tested  and  four  or  fewer  failures  occur,  then  no  system  failures  would  ha\c  occured 
had  hese  components  been  assembled  into  systems.  The  lower  confidence  limit  is  cal- 
cula  xl  using  Equation  (2.8)  when  the  equivalent  number  of  system  failures  is  zero, 
Equation  (2.12)  when  the  number  of  system  failures  is  one,  and  Equation  (2.14),  with 
k  —  1,  in  all  other  cases. 


Table  5.  PARALLEL  SYSTEM 


Case 

R, 

a 

Level 

A  / 

Ri.lw 

True  Confidence 
Level 

25 

5 

■ 

.99000 

.20 

.98403 

100 

■B 

.97049 

100 

26 

5 

4 

.96000 

.20 

.95770 

91.1 

.05 

.95344 

98.3 

27 

5 

: 

6 

.94000 

.20 

.93370 

83.9 

■a 

.93838 

98.2 

28 

5 

9 

.94000 

.20 

.94012 

77.6 

.05 

.94002 

93.6 

5.  Wheatstone  Bridge 

By  definition,  the  reliability,  P,.  for  the  Wheatstone  Bridge,  in  Figure  5,  with  five 
independent  components  is 


Rs  =  P\P&  +  pip5  +7W5  +  /W<  ~  P\P:?iP*  p  j « 

-  PlPjPiPs  -  PiPsPcPs  ~  PiPsPiPs  +  2P\PlPiPiPi 

where  p,  —  {\  —  q ,).  In  terms  of  q,  Equation  (2.16)  becomes 
Rj  =  a5) 

=  I  ~  <?m(«l«2  +  Ws)  ~  +  «2«J»4>  n  . 

4  \  \*~m  '  'J 

-  24(fll«2G3«ias) 

[Ref.  2:  p.  215).  By  substituting  for  <?„  the  corresponding  lower  confidence  limit 

ij  obtained. 


Rs,  i(i)  -  Utf’  %->  °s) 


(2.18) 
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The  reliability  of  the  Wheatstone  Bridge  system  is  normally  high  due  to  the  re¬ 
dundancy  of  the  system.  This  system  experiences  zero  „y stem  failures  in  the  following 
five  different  failure  patterns. 

•  fj  =  F2  =  Fl  =  Fa  =  F<  =  0 

•  /•  =^  =  ^  =  0 

•  F^F^O 

•  F2  =  FS  =  0 

.  f2  =  F3  =  F4  =  0 

where  F,  is  the  number  of  failures  of  component  /,  among  its  n ,  tests.  Any  other  failure 
patterns  will  produce  one  or  more  system  failures.  The  lower  confidence  limit  is  calcu¬ 
lated:  using  Equation  (2;8)  when  the  equivalent  number  of  system  failures  is  zero, 
Equation  (2.12)  when  the  number  of  system  failures  is  one,  and  Equation  (2.18)  in  all 
other  cases.  The  results  of  the  computer  simulations  are  presented  in  Table  6.  In  Table 

A  / 

6,  column  1  of  RsMl)  is  calculated  using  Equation  (2.10)  and  column  2  is  calculated  using 
Equation  (2.9)  for  when  the  component  failures  equate  to  zero  system  failures. 


Table  6.  WHEATSTONE  BRIDGE  SYSTEM 


Case 

n 

Compts 

E[F) 

R, 

a 

Level 

.  / 

R>.LM 

True  Confidence 
Level 

29 

5 

5.75 

.99716 

.20 

.9965S 

SS.6 

SS.6 

.05 

.99766 

.99766 

95.4 

95.4 

30 

5 

6 

.99976 

.20 

.99960 

.99960 

91.4 

91 

.05 

.99966 

.99966 

98.3 

98.3 

31 

5 

.5 

.99977 

.20 

lUEIIM 

.72478 

100 

100 

.05 

.9S67S 

.98678 

100 

100 

32 

5 

.5 

.99977 

.20 

.92622 

.72478 

100 

100 

.05 

.99339 

.99339 

100 

100 

The  system  reliability  values  in  cases  31  and  32  are  too  large  for  these  interval  estimation 
procedures  to  be  accurate  using  the  sample  sizes  given  in  Table  15  in  Appendix  B.  Also, 
more  than  1000  replications  would  be  needed  to  assess  the  accuracy  of  any  lower  confi¬ 
dence  limit  procedure  for  system  reliability  when  the  true  system  reliability  is  as  large 
as  it  is  in  these  cases. 
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III.  ALTERNATE  PROCEDURE  A  FOR  THE  LOWER  CONFIDENCE 
LIMIT  FOR  SYSTEM  RELIABILITY 

A.  METHODOLOGY 

This  procedure  determines  the  lower  confidence  limit  for  simple  and  complex  sys¬ 
tems  using  only  the  Poisson  approximation  to  the  Binomial  distribuiton.  It  is  used  ex¬ 
tensively  by  Bellini  [Ref.  8:  p.4-6). 

This  procedure  uses  the  principles  outlined  in  Chapter  II  of  this  thesis  except  in  the 

cases  where  there  are  zero  or  one  system  failure.  In  the  case  where  there  are  zero  system 

failures  (no  components  fail)  the  estimated  unreliabilty,  qt,  becomes  zero  because 
p. 

q ,  =  —  where  F,  is  the  number  of  failures  in  n,  mission  tests  of  component  /.  Therefore, 
the  value  of  a„  the  estimated  value  of  a„  becomes  zero  and  Equation  (2.7)  becomes  un¬ 
defined.  When  this  occurs  the  estimated  lower  confidence  limit  of  the  system  reliability, 

A 

Rum,  is  defined  as 


(3.1) 


where  n*  is  defined  as  in  Equation  (2.10). 

If  only  component,  m,  fails  the  value  of  an  is  equal  to  1.  The  a,  for  all  other  com- 

A- 

ponents  are  zero,  and  the  lower  confidence  limit,  R,Lm  is  defined  as 


K.Ui)  ~  *  “ 


'\*,2{i+n 


2,i 


m 


(3.2) 


where  n„  is  the  number  of  mission  tests  of  the  failed  component. 

B.  RESULTS 

The  accuracy  of  this  procedure  was  evaluated  only  for  series  and  Wheatstone  Bridge 
systems.  Testing  was  limited  because  a  comparision  of  results  of  the  three  procedures, 
discussed  in  this  thesis,  indicated  this  procedure  to  be  less  accurate  in  determining  the 
lower  confidence  limit  for  the  reliability  of  simple  systems.  This  observation  is  noted  in 
those  systems  experiencing  zero  system  failures  or  one  system  failure.  Selected  results 
illustrating  the  accuracy  of  this  procedure  compared  to  the  accuracy  of  the  ’'preferred 


procedure"  (Chapter  II)  are  indicated  in  Tables  7  and  8.  The  term  n*  is  computed  from 
Equation  (2.10)  when  the  equivalent  number  of  system  failures  is  zero. 


Table  7.  COMPARISON  OF  PREFERRED  PROCEDURE  AND  ALTERNATE 
PROCEDURE  A  (SERIES  SYSTEM) 


Preferred  Procedure 

Alternate  Procedure 

Case 

R, 

a 

Level 

R ' 

nUU) 

True  Confi¬ 
dence  Level 

R ' 

n-J.Ui) 

True  Con¬ 
fidence 
Level 

1 

.95572 

.20 

;  .91447 

75 

.83140 

100 

.05 

.85140 

100 

.92356 

100 

2 

.93206 

.20 

.88491 

100 

.83140 

100 

.05 

.85140 

100 

.92356 

100 

3 

.20 

.95361 

76 

.95361 

76 

.05 

.95969 

90 

.95969 

90 

■ 

.85951 

.20 

.85369 

85.2 

■Esm 

S5.5 

..05 

.86718 

94.5 

.850S3 

95.2 

5 

.950S4 

.20 

76.3 

.95036 

80.3 

.05 

.95779 

91.1 

.96359 

S9.6 

6 

.85951 

.20 

.85910 

80.1 

.S6910 

SO 

.05 

.SSI  14 

92.5 

.S8072 

92.9 

■ 

-S5S2S 

72.4 

.87174 

72.4 

ns 

S6.6 

.SS366 

86.6 

S 

.85951 

.20 

.87137 

73.3 

.S7137 

73.3 

.05 

-S9049 

86.4 

.S9049 

86.4 

f 
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Table  8.  COMPARISION  OF  PREFERRED  PROCEDURE  AND  ALTERNATE 
PROCEDURE  A  (WHEATSTONE  BRIDGE) 


Preferred  Procedure 

Alternate  Procedure 

Case 

R, 

a 

Level 

d' 

ni.Lh) 

True  Confi¬ 
dence  Level 

*  / 

R).LM 

True  Con¬ 
fidence 
Level 

29 

.99776 

.20 

.99658 

SS.6 

1.000 

63.6 

.05 

.99766 

95.4 

1.000 

70.4 

30 

.99976 

.20 

.99960 

91.4 

1.000 

66.2 

.05 

.99966 

9S.3 

1.000 

73.1 

31 

.20 

.91447 

100 

.72478 

91. S 

.05 

.9S67S 

100 

1.000 

91. S 

32 

.99977 

.20  .92622 

100 

.99549 

93.7 

.05  .99339 

100 

1.000 

93.7 

This  alternate  procedure  produced  lower  confidence  limits  that  were  more  conservative 
than  those  produced  by  the  “preferred  procedure". 
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IV.  ALTERNATE  PROCEDURE  B  FOR  THE  LOWER  CONFIDENCE 
LIMIT  FOR  SYSTEM  RELIABILITY 

A.  METHODOLOGY 

The  purpose  of  this  alternate  procedure  was  to  construct  a  procedure  that  accom¬ 
modates  zero  component  failures  in  a  different  manner  than  that  employed  in  other 
procedures.  This  procedure  redefines  the  estimated  value,  a„  of  a„  and  in  so  doing  uses 
the  Poisson  approximation  to  the  Binomial  distribution. 

Suppose  a  component,  i,  undergoes  n,  tests  where  there  is  a  probability  of  success, 
p„  on  each  component  test.  Let  F,  be  the  number  of  failures  in  these  n,  tests.  We  define 
F=ZF, 

in  1 

The  50  percent  lower  binomial  confidence  limit  for  the  reliability  of  component  /, 
plM,  can  be  -determined  by  using  its  number  of  failures,  F„  and  number  of  tests,  The 
upper  Biniomial  confidence  limit,  qliUt  is  equal  to  1  -  plM.  In  this  alternate  procedure  we 
define  a,  by 


Rm,U 

where  qmtU  =  max{qiM,  q2%u, ....  qkM).  Note  that  the  index  will  be  determined  by  the  data 
and  a,  is  well  defined  even  if  no  components  fail.  The  probability  distribution  of  F,  is 
approximated  by  the  Poisson  distribution.  The  estimated  upper  confidence  limit,  qmMt), 

can  be  calculated  using  Equation  (2.7)  and  the  system  reliability  lower  confidence  limit, 

A  A  t 

can  be  obtained  from  Equation  (2.4)  where  a,  is  defined  by  Equation  (4.1). 

This  procedure  is  used  without  exception,  regardless  of  the  number  of  system  fail¬ 
ures. 

B.  RESULTS 

This  procedure  was  evaluated  only  on  series  and  Wheatstone  Bridge  systems. 
Evaluations  were  limited  because  a  comparison  of  the  results  with  other  procedures 
discussed  in  this  thesis,  indicated  this  procedure  to  be  less  accurate.  Selected  results  il¬ 
lustrating  the  accuracy  of  this  procedure  compared  to  the  accuracy  of  the  "preferred 
procedure"  (Chapter  II)  are  indicated  in  Tables  9  and  10.  The  term  n *  is  computed  for 
Equation  (2.10)  when  the  equivalent  number  of  system  failures  is  zero. 
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Table  9.  COMPAQ  .»N  OF  PREFERRED  PROCEDURE  AND  ALTERNATE 
PROCEDU  E  B  (SERIES  SYSTEM) 


- 

Preferred  Procedure 

Alternate  Procedure 

||3jj|9 

H 

a 

Level 

R  / 

True  Confi¬ 
dence  Level 

True  Con¬ 
fidence 
Level 

1 

mm 

.95572 

.20 

,91447 

75 

.97788 

37.1 

1 

■ 

.05 

.85140 

100 

.99489 

7.4 

2 

.93206 

.20 

.88491 

100 

.97197 

70.3 

i 

1 

.05 

.85140 

100 

.99350 

33.2 

3 

.95084 

.20 

.95361 

76 

.97294 

25.7 

1 

.05 

.95969 

90 

9.7 

4 

.85951 

.20 

'.85369 

85.2 

.93224 

26.7 

..05 

— ddriliM 

94.5 

.97896 

8.3 

5 

.95084 

.20 

.95036 

76.3 

.97497 

30.1 

.05 

.95779 

91.1 

.99155 

9.2 

6 

.85951 

.20 

■S5910 

80.1 

.91470 

39 

■a 

■HEX 

92.5 

.97405 

7.1 

7 

.85828 

.20 

■S7174 

72.4 

.S9S48 

44.5 

.05 

.8S366 

86.6 

.94607 

19.4 

8 

.85951 

.20 

.87137 

73.3 

.88412 

56.3 

.05 

.89049 

86.4 

.93S86 

24.9 

Cases  4,  5,  and  6  in  Table  9  clearly  illustrate  a  more  accurate  "preferred  procedure"  for 
a  series  system. 
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Table  10.  COMPARISION  OF  PREFERRED  PROCEDURE  AND  ALTERNATE 
PROCEDURE  B  (WHEATSTONE  BRIDGE) 


Preferred  Procedure 

Alternate  Procedure 

Case 

R, 

a 

Level 

R1 

AU<«> 

True  Confi¬ 
dence  Level 

R>.m 

True  Con¬ 
fidence 
Level 

29 

.99776 

.20 

.99658 

88.6 

98123 

90.1 

.05 

.99766 

95.4 

98235 

97.6 

30 

.99976 

.20 

.99960 

91.4= 

99810 

92.0 

.05 

.99966 

9S.3\ 

99856 

99.1 

31 

.99977 

.20 

.91447 

100  . 

;90478 

91.8 

.05 

.98678 

100 

.99900 

91.8. 

32 

.99977 

.20 

.92622 

100 

90932 

100 

.05 

.99339 

100 

99221 

100 

In  the  case  of  the  Wheatstone  Bridge,  Table  -10  illustrates  that  the  "preferred  procedure" 
is  more  accurate  than  the  "alternate  procedure". 
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V.  SIMULATION 

Standard  simulation  techniques  are  used  to  determine  the  accuracy  of  the  lower 
confidence  limit  procedures.  Some  of  the  basic  simulation  programs  were  developed  by 
Bellini  [Ref.  8:  Appendix  A].  Each  program  was  modified  to  incorporate  the  necessary’ 
mathematical  formulae  that  are  needed  to  define  the  lower  confidence  limit  for  a  partic¬ 
ular  procedure. 

Input  parameters  needed  to;run  the  computer  programs  are 

•  k  -  number  of  components  in  the  system 

•  n  -  vector  of  component  tests  (/»,/!,„., «,) 

•  q  -  vector  of  component  unreliabilites  (<7i/7v.-<7i) 

•  a.  -  level  of  confidence 


Note  that  the  value  of  system  reliability,  Rt,  is  determined  by  the  vector  q. 

The  NON-IMSL  random  number  generator,  SRN'D,  was  used  to  simulate  the  suc¬ 
cess  or  failure  of  each  test  of  the  k  components.  From  this  data,  the  values  of  q„  an 
qm<  W),  and  RuLM  are  calculated.  Each  scenario  was  replicated  1000  times  to  generate 
1000  ordered  values  of  Rs,Ux).  The  1000(1  —  a)"'  ordered  value,  R,,Llt), iooo<i-»>  from  smallest 
to  largest  denotes  the  100(1  -o)!h  percentile  point  of  the  probability  distribution  of 

A  A 

R,.u*y  If  the  lower  confidence  limit  procedure  is  exact,  R,,LWi >ooo(i-a>  should  equal  R,.  The 

A 

percentiles  in  all  of  the  tables  are  the  values  of  R,,n,).mw-.y  A  true  confidence  limit  is 
then  determined  by  finding  the  element  of  the  vector  of  replications  which  is  closest  to 
Rs  and  noting  its  index  number,  j  .  The  true  confidence  level  is  then  calculated  to  be 

1000  X  100' 

.  A  system  report  is  generated  and  reports  to  the  analyst  the  following  information. 


•  q -  unreliability  of  each  component,  / 

•  a,  •  fraction  of  unreliability  of  base  component,  m 

•  n,  -  number  of  mission  tests  for  each  component,  i 

•  R,  -  true  system  reliability 

A 

•  Rj,k.)  -  estimated  lower  confidence  limit  for  the  100(1  —  a)  percentile 


•  difference  between  R,  and  Ru  m 

•  true  confidence  level 
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VI.  CONCLUSIONS  AND  RECOMMENDATIONS 

The  accuracies  of  three  approximate  interval  estimation  procedures,  based  on  dis¬ 
crete  component  data,  for  the  reliability  of  coherent: systems  were  analyzed  in  this  thesis. 
Computer  simulations  were  used  to  perform  this  analysis.  Each  interval  estimation 
method  emh*.  ^..  ratios  of  component  failure  rate  estimates  when  two  or  more  different 
component  types  have  at  least  one  failure.  This  specific  ratio  feature  is  needed  to  extend 
this  work  to  more  complex  systems  with  mixtures  of  cyclic  components  and 
componenets  whose  failure  times  have  a  continuous  probability  distribution. 

The  simulations  reveal  that  the  methodilabeled  the  "preferred  method"  in  this  thesis 
appears  to  be  reasonably  accurate  if  four  or  more  failures  are  expected  to  occur  among 
all  components  tested.  However,  any  general  interpretation  of  this  t\pe  is  not  warranted 
at  this  time.  The  potential  for  error  can  be  significant  if  several  components  have  rela¬ 
tively  small  samples  (less  than  15)  and  zero  failures.  Zero  failures  joined  with  small 
sample  sizes  will  always  be  the  bane  of  classical  interval  estimation  procedures. 

The  ratio  procedure  does  allow  the  possible  use  of  information  extraneous  to  the 
data.  Previous  test  programs  on  similar  hardware  operating  under  similar  environments, 
as  that  present  for  the  current  test  data,  might  be  used  to  modify  the  component  failure 
fate  estimates  or  prehaps  only  the  ratios  of  the  failure  rate  estimates.  So  called  "off  the 
shelf'  hardware  purchased  in  accordance  with  existing  DOD  specifications  would  be 
prime  candidates  for  this  type  of  failure  rate  modification.  Supplementing  current  test 
data  with  other  existing  "similar"  data  has  become  more  common  as  resources  for  reli¬ 
ability  demonstration  testing  has  been  reduced. 
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APPENDIX  A.  DISCRETE  CONFIDENCE  LIMIT  PROPERTIES 

Equations  for  confidence  limits  on  parameters  of  discrete  probability  distributions 
are  not  exact,  If  pLM  is  the  lower  100(1  -  a)  percent  confidence  limit  for  the  parameter 
p  in  the  Binomial  distribution,  then  pUt)  is  defined  so  that 

P(Pl&<p)^  L-a  (A  1) 

If  the  parameter  p,  is  the  probability  of  success  on  each  trial  in  a  sample  of  size  n 
and  s  is  the  observed  number  of  successes  then  pLM  is  the  solution  for  p  in  the  equation 

n 

X/yVO  -  pT~J  =  «  (A  2) 

J=s 

if  s  >  0,  and  pLM  =  0  if  s  =  0.  Specifically,  suppose  s  =  n  then  in  Equation  (A2), 
Pu»  ~  \f*  ■  This  is  the  largest  value  of  pLM.  Consequently  if  the  true  value  of  p  is 
greater  than  (/oT  then  P(pUl)  <p)  =  1.  This  has  important  implications  when  analyzing 
computer  simulations  of  confidence  limit  procedures  based  on  discrete  data  to  assess 
their  accuracy.  If  the  value  of  p  used  to  generate  the  data  on  the  computer  is  greater 
than  ?Ja,  then  all  of  the  pLw  values  will  be  smaller  than  p  and  the  analysis  will  show  the 
procedure  has  confidence  level  100  .  This  is  to  be  expected  when  evaluating  these  con¬ 
fidence  interval  procedures  for  some  choices  of  sample  sizes  and  parameter  values. 

•  The  exact  value  of  P{pLM  <,  p)  depends  on  the  sample  size,  n,  and  the  true  value  of 
p.  For  fixed  n,  the  possible  values  of  j  are  0,1,2,...,//.  Each  value  of  s  yields  a  specific 
value  of  pLM,  say  p(s).  Consequently, 

P(pL(,)=p(s)\p)  =  r(s  =  s\p)  (A3) 


and 


P(pUa)<p(s)\p)  =  P(S<s\p)  (A  4) 

If  the  true  value  of  p  equals  Pnt)(s)  for  some  s  then,  the  probability  in  Equation  (A4) 
has  the  value  1  -  a  because  this  value  of  p  satisfies  Equation  (A2).  Consequently  if  the 
true  value  of  p  equals  any  of  the  values  p(n),  p{n  -  1), ....  p{  1),  then  P{pLM  <p)  =  l  —  a. 
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For  all  other  values  of/),  P{piM  </.>)  >  1  —  a.  Figure  6  is  a  sketch  of  the  behavior  of  this 
phenomena  for  a  =  .10  and  n  =  5. 


1 

P(Puo<PlP) 

.90 


0  .1  .3  .5  .7  .9  1 

P(2)  p.(  3 )  p(4)  p  (5) 


Figure  6.  Behavior  of  P{pLM  <  p) 
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APPENDIX  B.  INPUT  PARAMETERS 


Table  1 1.  SERIES  SYSTEM  INPUT  PARAMETERS 


Case 

Components 

1 

2 

3 

Bfl 

5  : 

6 

KB 

8 

9 

10 

B 

.02 

.01 

.005 

wm 

— 

n, 

30; 

25 

20 

10 

5 

1 

fl 

<h 

.02 

.01 

.005 

.005 

.005  : 

.005 

.005 

.005 

.005 

.005 

n  ; 

30 

25’ 

20 

wa 

BB 

5 

5 

5 

5 

5 

;  3  5 

.01 

BbMm 

:oos 

.025 

BB 

n, 

200 

400 

265 

mm 

Em 

B 

mm 

.005 

.01 

.015 

.02 

mm 

.005 

.01 

.015 

.02 

.025 

Bfl 

100 

wm 

30 

wm 

20 

100 

50 

30 

25 

20 

B 

<u 

.01. 

.005 

.003 

.008 

■mi 

n, 

150 

80 

240 

265 

50 

6 

mm 

.01 

.015 

.02 

.025 

.005 

.01 

.015 

.02 

.025 

n, 

150 

20 

20 

50 

— 

150 

20 

20 

50 

25 

B 

<b 

•01 

BB 

,03 

BB 

.05 

"i 

300 

20 

20 

100 

50 

;  s 

mm 

.005 

.01 

.015 

.02 

.025 

.005 

.01 

.015 

.02 

.025 

EHB 

20 

20 

100 

50 

300 

20 

20 

100 

50 

25 


Table  12.  SERIES-PARALLEL  SYSTEM  INPUT  PARAMETERS 


E39 

Components 

l 

2 

3 

MM 

5 

6 

MM 

8 

9 

ESI 

9 

Ht 

.02 

eh 

.005 

.005 

.005 

- 

n, 

3o; 

25 

20 

10 

5 

: 

D 

.02 

.01  ; 

.005 

.005 

.005’ 

.005 

.005 

.005 

.005 

n 

j 

100 

MM 

15 

10 

10 

10 

10 

10 

10 

10 

11 

m 

■ 

.01: 

.02 

.03 

.04 

.05 

n 

100 

50 

30 

25 

20 

12 

q 

.005 

.01 

.015 

.02 

.025 

.005 

.01 

HQ 

.02 

.025 

100 

El 

30 

wm 

20 

100 

50 

30 

25 

20 

13 

■ 

.91 

.005 

.003 

.oos 

.025 

n 

mm 

400 

720 

265 

80 

D 

m 

■ 

.005 

.01 

.015 

.02 

WM 

.005 

.01 

EE 

mm 

.025 

mm 

300 

20 

20 

100 

50 

300 

20 

20 

100 

50 

26 


Table  13.  SERIES-PARALLEL  WITH  A  2  OUT  OF  3 
INPUT  PARAMETERS 


Components 
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COMPONENT  SYSTEM 


1 

2 

3 

.02 

.01 

7E-5 

30 

25 

20 

.02 

.01 

7E-5 

100 

30 

15 

10 


2E-5  6E-5  .025 


240  265  50 


7E-5  4E-5  .025 


20  50  25 


2E-5  6E-5  .025 


.005  .005  .005 


10  10  10  10 


.01  .015  .02  .025 


20  20  50  25 


ft 

.005 

.01 

7E-5 

4E-5 

.025 

.005 

.01 

.015 

.02 

.025 

ft 

300 

20 

20 

100 

50 

300 

20 

20 

100 

50 

in 

IE-4 

mm 

7E-5 

BH 

.001 

.001 

.001 

.001 

.002 

4E-4 

ft 

200 

100 

m 

50 

40 

40 

40 

40 

50 

60 

mm 

.001 

.002 

7E-5 

.000 

.005 

.005 

.005 

.005 

.006 

.003 

Em 

100 

on 

50 

40 

40 

40 

40 

50 

60 

ft 

.025 

.02 

TeT 

EE 

.001 

.001 

.001 

.001 

.002 

-.005 

n, 

200 

100 

60 

50 

40 

40 

40 

40 

50 

60 

ft 

.025 

-°J 

7E-5 

4E-4 

.005 

.005 

.005 

.005 

.006 

.035 

ft 

200 

1 00 

60 

50 

40 

40 

40 

40 

50 

60 

APPENDIX  C.  FORTRAN  CODE  FOR  THE  PREFERRED  LOWER 
CONFIDENCE  LIMIT  FOR  SYSTEM  RELIABILITY  (SERIES  SYSTEM 
AND  WHEATSTONE  BRIDGE  SYSTEM) 

PROGRAM  ZFYSCN 


*  TITLE:  BINOMIAL  INTERVAL  ESTIMATION  PROCEDURE  * 

*  ZERO  FAILURES  ALLOWED;  NO  SCALING  * 

*  AUTHOR:  E.  F.  BELLINI,  LT,  USN  * 

*  MODIFIED  BY:  LT  VALERIE  A.  COVINGTON, USN  (MAR  90) 

*  DATE:  NOV  89  * 

it  it 

*  THIS  PROGRAM  COMPUTES  THE  TRUE  CONFIDENCE  LEVEL  FOR  THE  ESTIMATE  * 

*  RELIABILITY  OF  A  SERIES  AND  BRIDGE  SYSTEM  GIVEN  THE  RELIABILITY  * 

*  OF  THEIR  COMPONENTS  * 

it  it 


*  IN  ITS  PRESENT  CONFIGURATION  THIS  PROGRAM  IS  SET  UP  TO  RUN  12  * 

*  TIMES  EACH  TIME  PRODUCING  1000  REPLICATIONS  USING  A  DIFFERENT  * 

*  SET  OF  INPUT  DATA.  RUN  THE  PROGRAM  FROM  CMS  BY  TYPING  *B1  EXEC1.* 

*  THE  REXX  EXEC  PROGRAM  * 

*  ’ B1 *  CALLS  THE  INPUT  FILES  TO  BE  READ  AND  NAMES  THE  12  OUTPUT  * 

*  FILES  RESULTING  FROM  THE  12  CONSECUTIVE  RUNS.  BY  EDITING  THE  * 

*  INDEX  COUNTERS  I,  J,  K  OF  THE  ' Bl*  EXEC  ONE  CAN  RUN  ANY  USER-  * 

*  SPECIFIC  RUN  FROM  JUST  ONE  RUN  TO  ALL  12.  * 

*  * 

*  VARIABLES  USED  * 

*  * 


-u 

AHATI 

it 

AI 

it 

ALFA 

it 

BIGF 

j- 

CHISQ 

x 

C1C15 

j. 

DEGFR 

it 

DELBRG 

it 

DELSTR 

•JU 

DELTAR 

* 

DIFF 

* 

EPS 

* 

ERROR 

* 

FAILS 

J* 

FI 

FLAG 

* 

INC 

* 

KEY1 

* 

KEY2 

* 

KEY3 

* 

KEY4 

* 

KK 

* 

LOOP 

it 

MAXALF 

WEIGHT  ESTIMATES  FOR  EACH  COMPONENT  * 
INPUT  WEIGHTS  FOR  EACH  COMPONENT  * 
LEVELS  OF  SIGNIFICANCE  * 
TOTAL  NO.  OF  FAILURES  FOR  EACH  REPLICATION  * 
CHI-SQUARE  RANDOM  VARIABLE  VALUE  * 
FORMAT  LABEL  * 
DEGREES  OF  FREEDOM  * 
DIFFERENCE  FOR  BRIDGE  SYSTEM  * 
DIFFERENCE  FOR  SERIES  SYSTEM-  CLOSED  FORM  * 
DIFFERENCE  FOR  SERIES  SYSTEM  * 
DIFFERENCE  (TRUE  REL.  -  ESTIMATED  REL. )  * 
SMALL  QUANTITYC CONSTANT)  * 
PARAMETER  FOR  IMSL  ROUTINE  * 
COUNTS  NO.  OF  REPLICATIONS  WITH  AT  LST.  1  FAILURE  * 
NO.  OF  FAILURES  FOR  EACH  C0MP0NENT(ALL  MISSION  TST)* 
1  IF  ALL  COMP.  HAVE  SAME  NO.  OF  MISSION  TESTS  * 
INCREMENT  STEP  SIZE  FOR  ROUTINE  USMNMX  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  SIZING  PARAMETER  FOR  THE  MAX  NO  OF  COMPONENTS* 
COUNTS  NO.  OF  REPLICATION  PERFORMED  * 
MAX  NO.  OF  SIGNIFICANT  LEVELS  DESIRED( ARRAY  SIZING)* 
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* 

MAXREP 

MAX  NO.  OF  REPLICATIONS 

* 

* 

MAXRUN 

MAX  NO.  OF  PROGRAM  ITERATIONS  ALLOWED 

k 

* 

MSTRQ 

MASTER  UNRELIABILITYCUSED  WITH  Al'S  TO  CALC.  Ql'S) 

* 

k 

MULT 

MULTIPLIER  FOR  RANDOM  NO.  GENERATOR  SRND 

* 

* 

N 

NO.  OF  MISSION  TEST  FOR  EACH  COMPONENT  ’ 

r 

k 

NIMAX 

* 

MAX  NO.  OF  MISSION  TESTS 

VC 

NIMIM 

MIN  NO.  OF  MISSION  TESTS 

* 

k 

NINDX 

INDEX  NO.  OF  MAX  NO.  OF  MISSION  TESTS 

* 

rr 

NIREAL 

NO.  OF  MISSION  TESTS  TRANSFORMED  TO  REAL 

* 

VC 

NMAX 

MAX  NO.  OF  MISSION  TESTS  FOR  OUTPUT  CONTROL- 

* 

k 

NPRNT 

FLAG  FOR  DETAILED  REPORT  OUTPUT 

rc 

k 

PRNT 

SAME  AS  ABOVE( PARAMETER) 

k 

* 

QHATI 

UNRELIABILITY  ESTIMATES  FOR  EACH  COMPONENT 

k 

* 

QHTMAX 

LARGEST  QHATI 

k 

* 

QHTUPR 

UPPER  LIMIT  ON  SYSTEM  UNRELIABILITY 

•k 

* 

QI 

INPUT  UNRELIABILIY  FOR  EACH  COMPONENT 

k 

* 

QINDX 

INDEX 

k 

* 

QUANTL 

QUANTILE 

rc 

* 

REPSHD 

REPLICATIONS  HEADING  FORMAT  NUMBER 

k 

* 

RHTSTR 

SERIES  SYSTEM  RELIABILITY  ESTIMATE( CLOSED  FORM) 

rc 

& 

RS 

TRUE  SERIES  SYSTEM  RELIABILITY 

k 

k 

RSBRDG 

# 

TRUE  BRIDGE  SYSTEM  RELIABILITY 

rc 

7C 

RSHAT 

SERIES  SYSTEM  RELIABILITY  ESTIMATE 

• k 

7C 

RSHTBR 

BRIDGE  SYSTEM  RELIABILITY  ESTIMATE 

rc 

•rc 

SEED 

PARAMETER 

rc 

k 

SELCTA 

SIGNIFICANCE  LEVEL  SELECTION 

rc 

rc 

SELCTB 

SIGNIFICANCE  LEVEL  SELECTION 

k 

k 

SORT 

PARAMETER  FOR  ROUTINE  SRND 

k 

k 

SUMNAI 

SUM  OF  THE  PRODUCT  OF  NI’S  AND  Al'S 

k 

☆ 

TEMP 

TEMPORARY  ARRAY 

k 

TOTREP 

TOTAL  NUMBER  OF  PROGRAM  ITERATIONS 

k 

k 

TRANBR 

TEMPORARY  ARRAY 

rc 

* 

TRANSQ 

TEMPORARY  ARRAY 

•k 

it 

TRANSR 

TEMPORARY  ARRAY 

rc 

"tC 

TRIALS 

BERNOULLI  TRIALS  ARRAY  (2-DIM) 

k 

k 

TRNSTR 

TEMPORARY  ARRAY 

: k 

k 

TRUQNT 

TRUE  QUANTILE 

k 

k 

UNIRV 

UNIFORM  RANDOM  DEVIATES  (2-DIM) 

k 

JL 

ZFAILS 

TOTAL  NUMBER  OF  REPLICATIONS  WITH  ZERO  FAILURES 

k 

VC 

Jm 

-I. -I-  T  1 

TiTfTrn 

ZFPREP 

rkkkkkkkkkkkkki 

k* 

NO.  OF  COMPNTS.  WITH  ZERO  FAILURES  PER  REPLICATION 

k 

k 

kk 

PARAMETER  ( KK=10 , MAXALF=2 , NPRNT=0 ) 

PARAMETER  (MAXREP=1000,  MAXRUN=2000,  EPS=.  000001) 

REAL*4  UNIRV( 15 , 1000) ,TEMP( 1000) ,QI(KK) ,AI(KK) ,AHATI(KK) 

REAL*4  QHATI(KK),  NMAX,  NNMAX,  QHTMAX,  CHISQR(5,5),  ALFA(MAXALF) 
REAL*4  DF(5) ,AALFA(5) ,SUMNAI ,RSHAT(MAXALF,MAXREP) ,RS 
REAL*4  KEYl(MAXREP) ,KEY2(MAXREP) ,KEY3(MAXREP) .TRNSTR(MAXREP) 
REAL*4  DEGFR(MAXREP),  QHTUPR(MAXALF,MAXREP) ,CHISQ(MAXALF,MAXREP) 
REAL*4  QUPAl(MAXREP) ,  QUPA2(MAXREP) ,RHTSTR(MAXALF,MAXREP) 

REAL*4  DELTAR(MAXALF) ,  TRANSQ(MAXREP) .TRANSR(MAXREP) ,DIFF(MAXREP) 
REAL*4  DELSTRC MAXALF) , NIMIN, NIMAX , NIREAL( KK) 

REAL*4  RSHTBRC MAXALF, MAXPJEP) , DELBRG( MAXALF) ,KEY4(MAXREP) 

REAL*4  TRANBR(MAXREP),  RSBRDG  ,MSTRQ 
REAL*4  ZFPREP 
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REAL*4  AVGN, SUG, STUD 


INTEGER  SEED,  MULT,  SORT,  TRIALSC 15 , 1000) ,  EIGF,  FI(KK),  N(KK) 
INTEGER  NINDX,  QINDX,  ERROR,  REPS,  SELCTA,  SELCTK,  TOTREP 
INTEGER  C1C15,  REPSHD,  SELCTB,  ALF,  FLAG,  LOOP,PRNT 
INTEGER  QUANTL(MAXALF) ,  TRUQNT(MAXALF) ,ZFAILS, FAILS, INC 
INTEGER  NTEST,FCT, BFLAG 

CHARACTER*8  LOOPSO(MAXREP) 

DATA  SEED/123457/,  MULT/1/,  INC/1/ 

DATA  AALFA/.  01,.  05,. 9,.  95,. 99/,  DF/1, 5 , 10,30,40/ 

DATA  ALFA/.  20,.  050/ 

DATA-  SORT/O/ 

ASSIGN  8  TO  C1C15 
ASSIGN  9  TO  REPSHD 


*  CALL  COMPRS 
PRNT  =  NPRNT 


DO  12  1=1, KK 

AI(I)  =  9999. 
N(I)  =  99999999 
12  CONTINUE 

READ(03,*)K,MSTRQ 

DO  11  1=1, K 
READC03,*)  AI(I),N(I) 
11  CONTINUE 


IFCK.NE.5)  THEN 

WRITE(1,'(  "WARNING:  BRIDGE  STRUCTURE  ", 

+'  'ONLY  USES  THE  FIRST  5  COMPONENTS")') 

ELSE 
END  IF 

***INITIALIZE  THE  QHTUPR  ARRAY  OF  UNRELIABILITY  REPLICATIONS,  *** 

*  RSHAT  ARRAY  OF  ESTIMATE  SYSTEM  RELIABILITY  REPLICATIONS  * 

*  AND  RHTSTR  ARRAY  OF  EST.  SYST.  REL.  FOR  A  SERIES  SYST  WHEN  * 

***ALL  THE  COMPONENT  MISSION  TESTS  ARE  EQUAL  IN  NUMBER  *** 

DO  172  ALF=1,MAXALF 

DO  173  REPS=1 ,MAXREP 

QHTUPR( ALF, REPS)  =  0. 

RSHAT( ALF, REPS)  =  0. 

RHTSTR( ALF, REPS)  =  0. 

RSHTBR( ALF, REPS)  =  0. 

LOOPSO(REPS)=*  ******  ' 

173  CONTINUE 

172  CONTINUE 

***SET  FLAG  TO  I  IF  ALL  COMPONENTS  HAVE  SAME  NO.  OF  MISSION  TESTS**** 
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FLAG=1 

DO  50  1=1, K  -1 

IF((N(I)  -  N( I+T) ).  NE.  0)  THEN 
FIiAG=0 

ELSE 
END  IF 
50  CONTINUE 

PRINT  *,  'FLAG  IS: ' ,  FLAG 

***MAIN  PROGRAM  OUTER  LOOP  START( EVERY  LOOP  IS  ONE  REPLICATION)*** 

ZFPREP  =  0. 

ZFAILS  =  0 
FAILS  =  0 
TOTREP  =  0 
LOOP  =  0 

10  IFCLOOP.LT.  MAXREP)  THEN 
LOOP  =  LOOP  +  1 
IF(TOTREP.  LT.  MAXRUN)  THEN 
TOTREP  =  TOTREP  +  1 

SELCTA  =  1 
SELCTB  =  2 

***FILL  ARRAY  KEY(REPS)  WITH  INTEGERS  1  TO  K  TO  BE  USED  AS  OUTPUT*** 
***0F  THE  SUBROUTINE  SHSORT  iWfft 

DO  95  REPS=1 ,  MAXREP 
KEY 1( REPS)  =  REPS 
KEY2CREPS)  =  REPS 
KEY3(REPS)  =  REPS 
KEY4CREPS)  =  REPS 
95  CONTINUE 

***CALCULATE  NMAX  NOT  TO  PRINT  LONGER  THAN  THE  MAX  SAMPLE  SIZE*** 
***CALCULATE  THE  MAXIMUM  NO.  OF  TRIALS  AND  ITS  INDEX  NO.*** 

CALL  IMAXCN,K,NMAX,NINDX) 


***CALCULATE  THE  Ql'S  FROM  THE  GIVEN  MASTER  Q  AND  THE  AI'S*** 

DO  115  1=1,  K 

QIC  I)  =  MSTRQ  *  AI(I) 

115  CONTINUE 

DO  120  1=1,15 

DO  125  J=1 ,500 

UNIRVC I , J)  =  999. 

TRIALSC I ,  J)  =  99999 
125  CONTINUE 

120  CONTINUE 

***  DRAW  UNIFORM  (0,1)  RV'S  AND  CONVERT  TO  BERNOULLI  TRIALS*** 
DO  130  1=1,  K 
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CALL  SRNDC SEED,  TEMP,  N(I)}  MULT,  SORT) 
DO  135  J=l,  N(L) 

UNIRV(I , J)  =  TEMP(J) 

IF  (UNIRV( I ,  J).  LE.  1  -  QI(I))  THEN 
TRIALS(I,J)  “  0 

ELSE 

TRIALS( I , J)  =  1 
END  IF 

135  CONTINUE 
130  CONTINUE 


***CALCULATE  THE  NO.  OF  FAILURES  FOR  EACH  COMPONENT*** 

DO  150  1=1,  K 
FI( I)  =  0 
150  CONTINUE 
IONECT  =  0 

***CALCULATE  THE  F  SUB  I ' S  AND  THE  GRAND  TOTAL  NO.  OF  FAILURES*** 
BIGF  =  0 
DO  155  1=1,  K 

DO  160  J=l,  N( I) 

FI(I)  =  FI C I )  +  TRIALS(I , J) 

160  CONTINUE 

IF(FI( I).  EQ. 0)  THEN 

ZFPREP  =  ZFPREP  +  1 

ELSE 
END  IF 

***CALCULATE  THE  QHAT  SUB  l'S:  F  SUB  I'S  DIVIDED  BY  N  SUB  I'S*** 
QHATI(I)  =  REAL(FId))  /  N(I) 

BIGF  =  BIGF  +  FI( I) 

155  CONTINUE 

***COUNTS  NUMBER  OF  COMPONENTS  THAT  HAVE  FAILED*** 

DO  156  1=1, K 

IF  ( FI ( I )  .NE.  0)  I ONECT=IONECT+ 1 

156  CONTINUE 

CALL  CPARE(FI ,K,BFLAG) 


***CASE  WHERE  NO  COMPONENTS  HAVE  ANY  FAILURES*** 

AVGN=0. 0 
DO  200  1=1, K 

AVGN=AVGN+REAL( N( I ) ) 

200  CONTINUE 

AVGN=AVGN/R£AL( K) 

IF(BIGF.  EQ.  0)  THEN 

LOOPSO(LOOP)='  *ZERO*  ' 

ZFAILS  =  ZFAILS  +  1 
DO  205  ALF=1,  MAXALF 

RSHAT( ALF , LOOP)=  ALFA(ALF)**( 1.  /AVGN) 
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IECFLAG.EQ.  1)  THEN 

RHTSTR(  ALF,  LOOP  )=ALFA(  ALF  )**(1../N(  1)) 

ELSE 
END  IF 

IF  (BFLAG  .EQ.  0)  THEN 

RSHTBR(ALF,L00P)=ALFA(ALF)**(1.  /AVGN) 

ENDIF 

205  CONTINUE 

DEGFR(LOOP)  =  2. 

GO  TO  10 

ELSE 

’  FAILS  =  FAILS  +  1 
END  IF 

***COUNTS  NUMBER  OF  COMPONENTS  THAT  FAIL  RECORDS  NO.  COMPT  TESTS*** 
;FCT=0 

DO  202  1=1, K 

IF  (FI( I)  .NE.  0)  THEN 
FCT=FCT+1 
NTEST=N(I) 

ENDIF 

202  CONTINUE 

***FIND  THE  MAX  OF  THE  INDIVIDUAL  COMPONENT  UNRELIABILITIES*** 

CALL  RMAX( QHATI ,  K,  QHTMAX,  QINDX) 

***CALCULATE  THE  AHAT  SUB  I'S  (WEIGHT  ESTIMATES)*** 

***IF  COMPONENT  HAS  NO  FAILURES  AHAT  SUB  I  IS  ZERO*** 

SUMNAI  =  0. 

DO  165  1=1,  K 

AHATI(I)  =  QHATI(I)  /  QHTMAX 
SUMNAI  =  SUMNAI  +  N(I)  *  AHATI(I) 

165  CONTINUE 

***1  COMPONENT  FAILURE  SERIES  SYSTEM*** 

IF  (FCT  .EQ.  1)  THEN 

LOOPSO(LOOP)='  *ONECF*  ' 

DO  305  ALF=1,MAXALF 
SUC=REAL(NTEST-BIGF) 

STUD=FIN( 1.  -ALFA(ALF) ,2.  *(REAL(BIGF)+1.  ) ,2.  *SUC) 

RSHAT( ALF , LOOP)=SUC/ ( SUC+( REAL( BIGF)+1.  )*STUD) 

IF  (FLAG  .EQ. 1)  THEN 

RHTSTR( ALF , LOOP ) =RSHAT( ALF , LOOP ) 

ELSE 

ENDIF 

305  CONTINUE 
ENDIF 

***CALCULATE  1  REPLICATION  OF  UPPR  ALFA  C.  L.  ON  SYSTEM  RELIABILITY*** 


DEGFR(LOOP)  =  2  *  (1  +  BIGF) 
DO  170  ALF=1,  MAXALF 


CALL  MDCHK1  -  ALFA(ALF)  ,DEGFR(LOOP)  ,CHISQ( ALF, LOOP)  ,  ERROR) 
QHTUPR( ALF,  LOOP )  =  CH I SQ( ALF , LOOP;)  /  (2  *  SUMNAI) 

IF(FLAG.  EQ.  1)  THEN 

RHTSTR( ALF, LOOP)  =  1  -(CHISQ( ALF, LOOP)  /  REAL( 2*N( 1) ) ) 

ELSE 
END  IF 

***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  COMPNTS.  IN  SERIES*** 
IF  (FCT  .  NE.  1)  THEN 

CALL  RHTSRS(QHTUPR( ALF, LOOP),  AHATI,K,  RSHAT( ALF, LOOP)) 

END  I  F 

***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  BRIDGE  STRUCTURE*** 

***IF  NO  SYSTEM  FAILURE  AND  BRIDGE  SYSTEM*** 

IF  (BFLAG  .EQ.  0)  THEN 

RSHTBR ( ALF , LOOP ) =ALFA  C  ALF ) **  (1 .  / AVGN ) 

ENDIF 

***IF  MORE  THAN  1  SYSTEM  FAILURE  AND  BRIDGE  SYSTEM*** 

IF  (-BFLAG  .EQ.  2)  THEN 

CALL  RHTBRG(QHTUPR( ALF, LOOP) ,AHATI,K,RSHTBR( ALF, LOOP)) 
ENDIF 

***EXACTLY  1  SYSTEM  FAILURE  AND  BRIDGE  SYSTEM*** 

IF  (BFLAG  .EQ.  1)  THEN 
SUC=REAL( AVGN - 1 ) 

STUD=FIN( 1.  -ALFA( ALF) ,2.  *2.  ,2.*SUC) 
RSHTBR(ALF,L00P)=SUC/(SUC+2.  *STUD) 

ENDIF 

170  CONTINUE 

***THIS  ELSE  AND  ENDIF  ARE  FOR  THE  TEST  AGAINST  MAXRUN*** 

ELSE 

WRITE( 1 , ' (  "  "  . /  "  PROGRAM  EXCEEDED  THE  MAX  NO.  OF  RUNS' ' , 

+  ' '  ALLOWED  OF:  ”  ,I6)r)  TOTREP 
GOTO  9999 

END  IF 
GOTO  10 
END  IF 

C  WRITE(2, '(  "UNSORTED  RSHAT  1  IS:  "  ,/10(F8.  5))  '  ) 

C  +(RSHAT( 1 .LOOP) ,  L00P=1,  MAXREP) 

C  WRITE(2,  ("UNSORTED  RSHAT  2  IS:  "  ,/10(F8.  5))  '  ) 

C  +(RSHAT(2,L00P) ,  L00P=1,  MAXREP) 

C  IF(FLAG.EQ. 1)  THEN 

C  WRITE(2, ’(  "UNSORTED  RHTSTR  1  IS:  "  ,/10(F8.  5)) ' ) 

C  +( RHTSTR( 1 , LOOP ) .  L00P=1,  MAXREP) 

C  WRITE(2,'(f 'UNSORTED  RHTSTR  2  IS:  "  ,/10(F8. 5) ) ' ) 

C  +(RHTSTR(2,L00P) ,  L00P=1,  MAXREP) 

C  ELSE 
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o  o  o  o  o  o  o  o  o  o 


END  IF 

IF(K.-EQ.  5)  THEN 

WRITE(2, '(  "UNSORTED  RSHTBR  1  IS:  "  ,/10(F8.  5))  ' ) 

+(RSHTBR( 1 , LOOP) .  LOOP=l,  MAXREP) 

WRITE( 2,' (' 'UNSORTED  RSHTBR  2  IS: ' ' ,/10(F8.  5) ) 1 ) 

+( RSHTBR( 2 , LOOP ) ,  LOOP=l,  MAXREP) 

ELSE 
END  IF 

WRITE  (2, 1 (  "  ZERO  AND  ONE  FAILURE  REPS: ' ' ,/10(A8)) ' ) 

+  (LOOPSO(LOOP) ,LOOP=l, MAXREP) 

***SORT  THE  ARRAYS  OF  SYSTEM  UNRELIABILITIES( 1  FOR  EACH  CONF.  LEVEL)*** 

DO  700  ALF=1,  MAXALF 

DO  800  REPS=1 ,  MAXREP 

TRANSQC  REPS )  =  QHTUPR( ALF , REPS ) 

TRANSR(REPS)  =  RSHATC ALF, REPS) 

TRNSTR(REPS)  =  RHTSTR( ALF, REPS) 

TRANBR(REPS)  =  RSHTBR( ALF, REPS) 

800  CONTINUE 

CALL  SHS0RT(TRANSQ,KEY1, MAXREP) 

CALL  SHSORTC  TRANSR , KEY2 , MAXREP ) 

CALL  SHSORT( TRNSTR,KEY3, MAXREP) 

CALL  SHSORT( TRANBR,KEY4, MAXREP) 

DO  900  REPS=1 ,  MAXREP 

QHTUPRC ALF, REPS)  =  TRANSQC REPS) 

RSHATC ALF, REPS)  =  TRANSR(REPS) 

RHTSTRC  ALF , REPS )  =  TRNSTR( REPS ) 

RSHTBRC ALF, REPS)  =  TRANBR(REPS) 

900  CONTINUE 

700  CONTINUE 

***PRINT  OUTPUT  REPORT  HEADINGS*** 

WRITE( 1,6666) 

WRITEC 1,6667)  MAXREP 
WRITEC 1,6668)  K 
WRITEC 1,6669) 

IFCK.EQ.  5)  THEN 
WRITEC 1,6699) 

ELSE 
END  IF 

WRITEC 1,6670)  MSTRQ 
WRITEC 1,6671) 

WRITEC 1,C1C15) 

WRITEC 1,3334)  AI 
WRITEC 1,0007) 

WRITEC 1,C1C 15) 

WRITEC 1,3334)  QI 
WRITEC 1,0005) 

WRITEC 1,C1C15) 

WRITEC 1,3335)  N 
WRITEC 1,6674) 

***COMPUTE  THE  VALUE  RS  OF  THE  TRUE  SYSTEM  REL.  FNCTN.  (SERIES  SYSTEM)*** 
***  AND  FOR  THE  5 -COMPONENT  BRIDGE  STRUCTURE*** 
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CALL  RSRS(QI ,K,RS) 

WRITE( 1 , ' ( ’ 1  ,////" THE  TRUE  SERIES  SYSTEM  ' ' , 

+' 'RELIABILITY  VALUE  IS: ’ 1 ,T51,F8. 5)  ’ )  RS 
CALL  RBRIDGCQI ,K, RSBRDG) 

IF(K.  EQ.  5)  THEN 

WRITE(1, '  (  "  "  ,///-/"  THE  TRUE  BRIDGE  STRUCTURE  '  '  , 

+  '  'RELIABILITY  VALUE  IS:  "  ,T51,F8.  5)  ’  )  RSBRDG 
ELSE 
END  IF 

WRITE( 1,6675) 

***COMPUTE  THE  DIFFERENCE  'DELTAR'  BTWN.  RS  AND  RSHAT  OF  THE  THEO*** 
***RETICAL  QUANTILE  GIVEN  BY  ALFA(MUST  USE  SORTED  RSHAT  ARRAY)*** 

IF(FLAG.EQ.  1)  THEN 
WRITE( 1,5755) 

ELSE 
END  IF 

DO  450  ALF=1,  MAXALF 

QUANTL(ALF)  =  MAXREP  *  (1  -  ALFA(ALF)) 

DELTAR(ALF)  = -RS  -  RSHAT( ALF , QUANTL( ALF ) ) 

DELBRG(ALF)  =  RSBRDG  -  RSHTBR( ALF , QUANTL( ALF ) ) 

IFCFLAG.  EQ. 1)  THEN 

DELSTR(ALF)  =  RS  -  RHTSTR( ALF , QUANTL( ALF ) ) 

WRITE( 1,5555)  MAXREP,  ALFA(ALF),  RE AL( QUANTL( ALF ) ) 

WR ITE ( 1 , 5  6 5  6 )  RHTSTR ( ALF , QUANTL( ALF ) ) 

WRITE( 1,5657)  DELSTR(ALF) 

ELSE 
END  IF 

IFCK.EQ.5)  THEN 

DELBRG(ALF)  =  RSBRDG  -  RSHTBR ( ALF , QUANTL( ALF ) ) 

WRITE( 1,5555)  MAXREP,  ALFA(ALF) ,  REAL( QUANTL( ALF) ) 
WRITE( 1,5666)  RSHTBR( ALF , QUANTL( ALF ) ) 

WRITE( 1,5667)  DELBRG(ALF) 

ELSE 
END  IF 

WRITE( 1,5555)  MAXREP,  ALFA(ALF) ,  REAL( QUANTL( ALF) ) 

WRITE( 1 , 5556 )  RSHAT( ALF , QUANTL( ALF) ) 

VRITE( 1,5557)  DELTAR (ALF) 

450  CONTINUE 

PRINT*,  'QUANTL(l)  IS:',  QUANTL(l) 

PRINT*,  ’QUANTL(2)  IS:',  QUANTL(2) 

***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 

*i’nV  ********  RSHAT  *******  *** 

WRITE( 1,6676) 

DO  400  ALF=1, MAXALF 
TRUQNT(ALF)  =  0 

DO  500  REPS=1 ,  MAXREP 

DIFF(REPS)  =  RS  -  iTSHAT( ALF, REPS) 

500  CONTINUE 

DO  600  REPS=1 ,  MAXREP 

IF( ABSCDIFF(REPS) ) .  LE.  EPS)  THEN 
TRUQNT(ALF)  =  REPS 
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WRITEC 1,  *>("'  '  "  ,/'  'TRUE  CONFIDENCE  LIMIT  IS:  "  , 

+  F8.4)') 

+  (TRUQNT(ALF)  /  REAL(  MAXREP))-  *  100. 

GO  TO  620 

ELSEIF(DIFF(REPS). LT. 0. )  THEN 
TRUQNT(ALF)  =  REPS 
GO  TO  610 

ELSE 
END  IF 

600  CONTINUE 

610  IF(TRUQNT(ALF).  EQ.  0.  )  THEN 

WRITEC 1,4443)  ALFA (ALF) 

WRITE(1,'("  ",/ "THE  SMALLEST"  , 

+  ' '  DIFFERENCE  BETWEEN  RS  AND  RSHAT  IS:  "  ,F10. 5)')  DIFFC 

+  MAXREP) 

ELSEIF(TRUQNT(ALF). EQ.  1.  )  THEN 
WRITEC 1,4442)  ALFA(ALF) 

WRITEOl, 1  (  "  ",/" ALL  RSHAT"  , 

+  '  '  ARE  GREATER  THAN  RS"  )  '  ) 

ELSEIF(ABS(DIFF(TRUQNT(ALF'')).  LE.  ABS(DIFF(TRUQNT(ALF)  -  1))) 
+  THEN 

WRITEC 1,4444)  ALFA(ALF) , 

+  (TRUQNT(ALF)  /  RE AL( MAXREP))  *  100. 

WRITEC 1,4445)  RSHATC ALF , TRUQNTC ALF ) ) 

WRITEC 1,4446) 

ELSE 

WRITEC 1,4444)  ALFA (ALF) , 

+  ((TRUQNTC ALF) -1)  /  REAL( MAXREP))  *  100. 

WRITEC 1,4445)  RSHATC ALF, TRUQNTC ALF) -1) 

WRITEC 1,4447) 

620  END  IF 

400  CONTINUE 


***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 
***  ********  RSHTBR  (BRIDGE)  *******  *** 


IFCK.EQ.5)  THEN 
DO  401  ALF=1 ,MAXALF 
TRUQNTC ALF)  =  0 

DO  501  REPS=1 ,  MAXREP 

DIFF(REPS)  =  RSBRDG  -  RSHTBRC ALF, REPS) 

501  CONTINUE 

DO  601  REPS=1,  MAXREP 

IF(ABS(DIFF(REPS) ). LE. EPS)  THEN 
TRUQNTC ALF)  =  REPS 

WRITEC  1, 1  (  "  "  ,  /  "  TRUE  CONFIDENCE  LIMIT  IS:", 
+  F8. 4) 1 ) 

+  (TRUQNTC ALF)  /  REAL(MAXREP) )  *  100. 

GO  TO  621 

ELSEIFC DIFFC REPS ). LT.  0.  )  THEN 
TRUQNTC ALF)  =  REPS 
GO  TO  611 

ELSE 
END  IF 

601  CONTINUE 
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611  IF( TRUQNTC ALF).  EQ.  0.  )  THEN 

WRITEC 1,4443)  ALFA(ALF) 

VRIT£(  1 , '  (  "  "  , /■' ' THE  SMALLEST'  ' , 

+  ' ’  DIFFERENCE  BETWEEN  RSBRDG  AND  RSHTBR  IS: ' ' , 

+  F10. 50’)  DIFF(MAXREP) 

ELSE IF( TRUQNT( ALF ) .  EQ.  1 .  )  THEN 
WRITEC 1 , 4442)  ALFA( ALF) 

WRITE( 1 , ' (  "  "  ,/" ALL  RSHTBR ' 1 , 

+  "  ARE  GREATER  THAN  RSBRDG")') 

ELSEIF(ABS(DIFFtTRUQNT(ALF))).LE.ABS(DIFF(TRUQNT(ALF)  -  1))) 
+  THEN 

WRITEC  1,4444)  ALFA(ALF);, 

+  (TRUQNTC ALF)  /  REAL(MAXREP) )  *  100. 

WRITE ( 1,4449)  RSHTBRC  ALF , TRUQNTC ALF) ) 

WRITEC 1,4446) 

ELSE 

WRITE( 1,4444)  ALFA(ALF) , 

+  ( (TRUQNTC ALF) -1)  /  REAL(MAXREP))  *  100. 

WRITEC 1 , 4449 )  RSHTBRC  ALF , TRUQNTC  ALF) - 1 ) 

WRITE (1,4447) 

621  END  IF 

401  CONTINUE 
ELSE 
END  IF 


***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 

***  ********  RHTSTR  ********  *** 

IFCFLAG.EQ. 1)  THEN 
DO  4400  ALF=1,MAXALF 
TRUQNTC ALF)  =  0 

DO  5500  REPS=1,  MAXREP 

DIFF(REPS)  =  RS  -  RHTSTRC ALF, REPS) 

5500  CONTINUE 

DO  6600  REPS=1 ,  MAXREP 

IF(ABS(DIFF(REPS) ). LE. EPS)  THEN 
TRUQNTC ALF)  =  REPS 

WRITEC 1 ,’(  "  "  ,  /  "  TRUE  CONFIDENCE  LIMIT  IS:  "  , 
+  F8. 4) ' ) 

+  (TRUQNTC ALF)  /  REAL( MAXREP))  *  100. 

GO  TO  6620 

ELSEIFCDIFF(REPS).  LT.  0.  )  THEN 
TRUQNTC ALF)  =  REPS 
GO  TO  6610 

ELSE 
END  IF 

6600  CONTINUE 

6610  IF(TRUQNT(ALF).  EQ.  0.  )  THEN 

WRITEC 1,4443)  ALFA(ALF) 

WRITEC  1 , '  (  "  "  ,/'  ’THE  SMALLEST", 

+  ' '  DIFFERENCE  BETWEEN  RS  AND  RHTSTR  IS:  "  , 

+  F9. 5) ' )  DIFF( MAXREP) 

ELSEIF(TRUQNT(ALF).  EQ.  1.  )  THEN 
WRITEC 1,4442)  ALFA(ALF) 

WRITEC  1, '  (  "  ",/"  ALL  RHTSTR", 


39 


+  "ARE  GREATER  THAN  RS"  )  '  ) 

ELSEIF(ABS(DIFF(TRUQNT(ALF)) ). LE. ABS(DIFF(TRUQNT(ALF)  -  1))) 
+  THEN 

WRITE ( 1,4444)  ALFA(ALF) , 

+  (TRUQNT(ALF)  /  REAL( MAXREP) )  *  100. 

WRITE(T,4448)  RHTSTR( ALF , TRUQNT ( ALF) ) 

WRITE( 1,4446) 

ELSE 

WRITEC  T.4444)  ALFA(ALF) , 

+  ( ( TRUQNT ( ALF )  - 1 )  /  REAL(MAXREP) )  *  100. 

WRITE (I, 4448 )  RHTSTR( ALF , TRUQNTC ALF) - 1 ) 

WRITE (1,4447) 

6620  END  IF 

4400  CONTINUE 
ELSE 
END  IF 

***PRINT  THE  ARRAYS  PERTINENT  TO  THE  OUPUT  OF  EACH  REPLICATION*** 

IF(PRNT.  EQ.  1)  THEN 
I  =  1 

185  WRITE ( 1 ,REPSHD)  ALFA( SELCTA) ,  ALFA( SELCTA) , 

+ALFA(SELCTB) ,ALFA(SELCTB) ,ALFA( SELCTA) ,ALFA( SELCTA) ,ALFA(SELCTB)., 
+ALFA(SELCTB) 

175  IF(I. GE. (MAXREP  +  1))  THEN 
GOTO  180 

ELSE 

IF(  (I.  EQ.  71).  OR.  (I.  EQ.  211).  OR.  (I.  EQ.  351).  OR.  (I.  EQ.  491).  OR. 

+  ( I.  EQ.  631).  OR.  (I.  EQ. 771). OR. ( I. EQ.  911).  OR.  (I.  EQ.  1051)  )  THEN 

I  =  I  +  70 
WRITEC1, '("  +  ")') 

GOTO  185 

ELSE 

WRITE( 1,3336)  I,  INT(DEGFR(I)) ,  CHISQ(1,I),  QHTUPR(1,I), 

+  CHISQ( 2,1),  QHTUPR( 2,1) 

END  IF 

IF(I  +  70.  LE.  MAXREP)  THEN 

WRITE( 1 , 3337)  1+70 , INT(DEGFR( 1+70) ) ,CHISQ( 1 , 1+70) , 

+  QHTUPR( 1 , 1+70) ,CHISQ( 2 , 1+70) ,QHTUPR( 2,1+70) 

ELSE 
END  IF 
1  =  1  +  1 
GOTO  175 
180  END  IF 
ELSE 
END  IF 

9999  WRITE(1, '  (  '  'THE  TOTAL  NO  OF  REPS  WAS:",  18)')  TOTREP 

WRITE(1, 1  ( '  ’THE  TOTAL  NO  OF  EFFECTIVE  REPS  WAS:",  18)')  LOOP 
WRITECl, '  ( '  'THE  TOTAL  NO  OF  NO  FAILURE  RUNS  WAS:  ",I8)')  ZFAILS 
WRITE(1,'(  "AVERAGE  NO.  OF  COMPONENTS  PER  REPLICATION  WITH  ", 

+' 'NO  FAILURES: ' ' ,F5. 2) ' )  ZFPREP  /  MAXREP 
WRITECl, ’("THE  TOTAL  NO  OF  RUNS  WITH  FAILURES  WAS:  ”,I8)')  FAILS 
0008  FORMAT  (/  3X,'C  l’,5X,'C  2', 

+5X,'C  3',5X,'C  4',5X,'C  5',5X,'C  6’,5X,’C  7',5X, 

+'C  8',5X,'C  9 ' ,5X, 1 C  10',4X,'C  ll',4X, 
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+'C  12',4X,'C  I3',4X,'C  14’  4X,'C  15') 

0009  F0RMAT( / IX , *  REP  NO' ,2X  'DF* ,1X ,'CHISQR( ’ ,F4. 3, ' ) ' , IX. 

+' QHTUPR( ’ ,F4. 3, ' ) ' .IX, fCHISQR(  ,F4. 3, ' ) ' . IX, 'QHTUPR(  ,F4. 3, ’ ) ' , 
+2X, 1  REP  NO' ,2X, 'DF' ,1X. 'CHISQRC ' ,F4.  3, '  ) ' ,1X, 

+  ’ QHTUPRC ’ ,F4.  3, ' ) ’ , IX,  CHISQR( ' ,F4.  3, ’ ) ’, IX, ' QHTUPR( ' ,F4. 3 , ' ) ' / ) 
0001  FORMAT  (///'UNIFORM  RANDOM  DEVIATES  ARE: ') 

0002  FORMAT  (///'BERNOULLI  TRIALS  ARE: ') 

0003  FORMAT  (///’TOTAL  NO.  OF  FAILURES  FOR  EACH  COMPONENT:  ’) 

0004  FORMAT  (///’ESTIMATED  UNRELIABILITY  FOR  EACH  COMPONENT: ') 

0005  FORMAT  (///'TOTAL  NUMBER  OF  MISSION  TESTS:  ') 

0006  FORMAT  (///'ESTIMATED  WEIGHTS  FOR  EACH  COMPONENT: ') 

0007  FORMAT  (///' Q  I  FOR  EACH  COMPONENT:  ') 

1111  FORMAT  (15F8.5) 


2222  FORMAT  (/IX, 15(14, 4X)) 

3333  FORMAT  ( /IX, 15( I4,4X) ) 

3334  FORMAT  (/15F8.5) 

3335  FORMAT  (/IX, 15(14, 4X)) 

3336  FORMAT  (T3 . 14, T9 , 13,T13,F11.  5 ,T27 ,F8.  5 ,T39 ,F11. 5 ,T53,F8.  5) 

3337  FORMAT  ( '  +  * ,T67,I4,T73,I3,T77,F11.  5,T91,F8.  5,T103,F11.  5,T117,F8. 5) 

4442  FORMAT  ('  ',///fTHE  RESULTING  (1  -  f,F4. 3,')  CONFIDENCE  ', 

+' LIMIT  IS: ' .T50. '  00.000  ’) 

4443  FORMAT  ('  ',///* THE  RESULTING  (1  -  ' ,F4. 3,’)  CONFIDENCE  ', 

+' LIMIT  IS:  ' ,T50 ,'100.0000') 

4444  FORMAT  ('  ' , ///  THE  RESULTING  (1  -  ' ,F4. 3,’)  CONFIDENCE  ', 

+  ' LIMIT  IS: ' ,T50 ,F8.  4) 

4445  FORMAT  ('  ',/'THE  RSHAT  VALUE  CLOSEST  TO  RS  IS:  ’,T51,F8.5) 

4446  FORMAT  (’  ',/' (FIRST  NEGATIVE  DIFFERENCE)’) 

4447  FORMAT  ('  ’,/' (ELEMENT  PRECEEDING  FIRST  NEGATIVE  DIFFERENCE)’) 

4448  FORMAT  ('  ',/'THE  RHTSTR  VALUE  CLOSEST  TO  RS  IS:  ',T51,F8.5) 

4449  FORMAT  ('  ',/'THE  RSHTBR  VALUE  CLOSEST  TO  RSBRDG  IS:  ',T51,F8.5) 

5555  FORMAT  ('  ',///’THE  ' , 14, ' ( 1- ' ,F4. 3, ' )  QUANTILE  IS: ' ,T49 ,F8.  3) 

5556  FORMAT  ('  './'THE  VALUE  OF  RSHAT  FOR  THAT  QUANTILE  IS: ’,T51,F8.  5) 

5557  FORMAT  ('  './'THE  DIFFERENCES  -  RSHAT)  IS:  '  ,T51,F8.  5) 

5656  FORMAT  ('  ' ,/'TKE  VALUE  OF  RHTSTR  FOR  THAT  QUANTILE  IS:  ' ,T51 ,F8.  5) 

5666  FORMAT  ('  ' ,/'THE  VALUE  OF  RSHTBR  FOR  THAT  QUANTILE  IS:  *,T51,F8.5) 

5657  FORMAT  ('  './'THE  DIFFERENCES  -  RHTSTR)  IS:  '  ,T51,F8.  5) 

5667  FORMAT  ('  './'THE  DIFFERENCES  -  RSHTBR)  IS:  '  ,T51  ,F8.  5) 

5755  FORMAT  ('  './//'SINCE  THE  NO.  OF  MISSION  TESTS  IS  THE  SAME  FOR1, 

+'  ALL  COMPONENTS  THE  CLOSED  FORM  SERIES  SYSTEM  RELIABILITY  ’ , 

+'" RHTSTR"  IS  COMPUTED') 

6666  FORMAT  ('+','* 

+ 1  **5V********  run  INPUT  SETTINGS  ^'nWr^************************** ' 

6667  FORMAT  ('  './/'NUMBER  OF  REPLICATIONS:  ' ,T50, 14) 

6668  FORMAT  ('  ’.//'NUMBER  OF  COMPONENTS: ' ,T50, 14) 

6669  FORMAT  ('  './/'SYSTEM  RELIABILITY  FUNCTION: ' ,T50, ' SERIES' ) 

6699  FORMAT  (’  './/’SYSTEM  RELIABILITY  FUNCTION:  ' ,T50, 'BRIDGE' ) 

6670  FORMAT  ('  './/'MASTER  UNRELIABILITY  USED:  '.T50.F8.5) 

6671  FORMAT  ('  './/'INPUT  WEIGHTS(A  SUB  I " S): ’ ) 

6674  FORMAT  (  '  +  '  ///'  Vr^***jV“***“*;V*******^r^V********5r********rr**rr*** '  f 
+'**R  UN  r’e  S  U  L  T  s*****^*— ^**^*******-;-****’-'***********  ’ , 

4. 1  **5V********V:*yr 1  ) 

RQR21AT  ^  1  4_  1  j  j  I  *  * 

+  '  ESTIMATE  ERRORS  ttlcMcttrtrsizirlrirri-iric-fciricic'Kirrz-irisititisirStirK-x-ixis-krcTt-k-itixit-irK'ic' 

|  *  J. j,  J. J.  I  ^ 


4448  FORMAT  ('  ' 

4449  FORMAT  ('  ' 
5555  FORMAT  ('  ' 
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6676  FORMAT  (  1  + 1  /  /  j 1  **iV*****iv******5VA********5V*i’oir*******iV)Vw*5VA?v*iWf * ' 
+'  TRUE  CONFIDENCE  LIMITS  &*************************************:1: 

4. 1  *  :V  5'riV********** 1  ) 


? 


END 
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APPENDIX  D.  FORTRAN  CODE  FOR  THE  PREFERRED  LOWER 
CONFIDENCE  LIMIT  FOR  SYSTEM  RELIABILITY  (SERIES  PARALLEL 

SYSTEM) 


PROGRAM  ZFYSCN 


* 


*  TITLE:  BINOMIAL  INTERVAL  ESTIMATION  PROCEDURE 

*  ZERO  FAILURES  ALLOWED;  NO  SCALING 

*  AUTHOR:  E.  F.  BELLINI,  LT,  USN 

*  MODIFIED  BY:  LT  VALERIE  A.  COVINGTON, USN  (MAR  90) 

*  DATE:  NOV  89 


THIS  PROGRAM  COMPUTES  THE  TRUE  CONFIDENCE  LEVEL  FOR  THE  ESTIMATE  * 
RELIABILITY  OF  A  SERIES  AND  BRIDGE  SYSTEM  GIVEN  THE  RELIABILITY  * 
OF  THEIR  COMPONENTS  * 


*  IN  ITS  PRESENT  CONFIGURATION  THIS  PROGRAM  IS  SET  UP  TO  RUN  12  * 

*  TIMES  EACH  TIME  PRODUCING  1000  REPLICATIONS  USING  A  DIFFERENT  * 

*  SET  OF  INPUT  DATA.  RUN  THE  PROGRAM  FROM  CMS  BY  TYPING  'B1  EXEC'.* 

*  THE  REXX  EXEC  PROGRAM  * 

*  'Bl'  CALLS  THE  INPUT  FILES  TO  BE  READ  AND  NAMES  THE  12  OUTPUT  * 

*  FILES  RESULTING  FROM  THE  12  CONSECUTIVE  RUNS.  BY  EDITING  THE 

*  INDEX  COUNTERS  I,  J,  K  OF  THE  ’Bl’  EXEC  ONE  CAN  RUN  ANY  USER-  * 

*  SPECIFIC  RUN  FROM  JUST  ONE  RUN  TO  ALL  12. 

* 

*  VARIABLES  USED  * 


?v 

AH  AT  I 

AI 

* 

ALFA 

J. 

BIGF 

J. 

CHISQ 

it 

C1C15 

ic 

DEGFR 

it 

DELBRG 

JU 

DELSTR 

* 

DELTAR 

* 

DIFF 

* 

EPS 

* 

ERROR 

JU 

FAILS 

JU 

FI 

* 

FLAG 

* 

INC 

* 

KEYl 

JU 

KEY2 

* 

KEY3 

* 

KEY4 

it 

KK 

it 

LOOP 

it 

MAXALF 

WEIGHT  ESTIMATES  FOR  EACH  COMPONENT  * 
INPUT  WEIGHTS  FOR  EACH  COMPONENT  * 
LEVELS  OF  SIGNIFICANCE  * 
TOTAL  NO.  OF  FAILURES  FOR  EACH  REPLICATION  * 
CHI-SQUARE  RANDOM  VARIABLE  VALUE  * 
FORMAT  LABEL  * 
DEGREES  OF  FREEDOM  * 
DIFFERENCE  FOR  BRIDGE  SYSTEM  * 
DIFFERENCE  FOR  SERIES  SYSTEM-  CLOSED  FORM  * 
DIFFERENCE  FOR  SERIES  SYSTEM  * 
DIFFERENCE  (TRUE  REL.  -  ESTIMATED  REL. )  * 
SMALL  QUANTITYC CONSTANT)  * 
PARAMETER  FOR  IMSL  ROUTINE  * 
COUNTS  NO.  OF  REPLICATIONS  WITH  AT  LST.  1  FAILURE  * 
NO.  OF  FAILURES  FOR  EACH  COMPONENT( ALL  MISSION  TST)* 
1  IF  ALL  COMP.  HAVE  SAME  NO.  OF  MISSION  TESTS  * 
INCREMENT  STEP  SIZE  FOR  ROUTINE  USMNMX  * 
ARRAY  OF  INDEXES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  SIZING  PARAMETER  FOR  THE  MAX  NO  OF  COMPONENTS* 
COUNTS  NO.  OF  REPLICATION  PERFORMED  * 
MAX  NO.  OF  SIGNIFICANT  LEVELS  DESIRED( ARRAY  SIZING)* 


it 

MAXREP 

MAX  NO.  OF  REPLICATIONS 

Vt 

it 

MAXRUN 

MAX  NO.  OF  PROGRAM  ITERATIONS  ALLOWED 

■k 

* 

MSTRQ 

MASTER  UNRELIABILITY:  USED  WITH  AT'S  TO  CALC.  QI'S) 

■aV 

it 

MULT 

MULTIPLIER  FOR  RANDOM  NO.  GENERATOR  SRND 

* 

* 

N 

NO.  OF  MISSION:  TEST  FOR  EACH  COMPONENT  * 

* 

NIMAX 

MAX  NO.  OF  MISSION  TESTS 

* 

* 

NIMIM 

MIN  NO.  OF  MISSION  TESTS 

* 

* 

NINDX 

INDEX  NO.  OF  MAX  NO.  OF  MISSION  TESTS 

* 

* 

NIREAL 

NO.  OF  MISSION  TESTS  TRANSFORMED  TO  REAL 

VC 

it 

NMAX 

MAX  NO.  OF  MISSION  TESTS  FOR  OUTPUT  CONTROL 

* 

* 

NPRNT 

FLAG  FOR  DETAILED  REPORT  OUTPUT 

* 

* 

PRNT 

SAME  AS  ABOVEC PARAMETER) 

rr 

* 

QHATI 

UNRELIABILITY  ESTIMATES  FOR  EACH  COMPONENT 

* 

* 

QHTMAX 

LARGEST  QHATI 

* 

* 

QHTUPR 

UPPER  LIMIT  ON  SYSTEM  UNRELIABILITY 

* 

* 

QI 

INPUT  UNRELIABILIY  FOR  EACH  COMPONENT 

* 

* 

QINDX 

INDEX 

Vr 

it 

QUANTL 

QUANTILE 

JU 

* 

REPSHD 

REPLICATIONS  HEADING  FORMAT  NUMBER 

* 

RHTSTR 

SERIES  SYSTEM  RELIABILITY  ESTIMATE( CLOSED  FORM) 

it 

RS 

TRUE  SERIES  SYSTEM  RELIABILITY 

* 

it 

RSBRDG 

TRUE  BRIDGE  SYSTEM  RELIABILITY 

fc 

it 

RSHAT 

SERIES  SYSTEM  RELIABILITY  ESTIMATE 

X 

it 

RSHTBR 

BRIDGE  SYSTEM  RELIABILITY  ESTIMATE 

ic 

it 

SEED 

PARAMETER 

T C 

* 

SELCTA 

SIGNIFICANCE  LEVEL  SELECTION 

X 

* 

SELCTB 

SIGNIFICANCE  LEVEL  SELECTION 

X 

* 

SORT 

PARAMETER  FOR  ROUTINE  SRND 

* 

* 

SUMNAI 

SUM  OF  THE  PRODUCT  OF  Nl'S  AND  Al'S 

X 

* 

TEMP 

TEMPORARY  ARRAY 

X 

* 

TOTREP 

TOTAL  NUMBER  OF  PROGRAM  ITERATIONS 

* 

* 

TRANBR 

TEMPORARY  ARRAY 

it 

* 

TRANSQ 

TEMPORARY  ARRAY 

X 

* 

TRANSR 

TEMPORARY  ARRAY 

* 

it 

TRIALS 

BERNOULLI  TRIALS  ARRAY  (2-DIM) 

it 

TRNSTR 

TEMPORARY  ARRAY 

k 

it 

TRUQNT 

TRUE  QUANTILE 

* 

it 

UNIRV 

UNIFORM  RANDOM  DEVIATES  (2 -DIM) 

rc 

it 

ZFAILS 

TOTAL  NUMBER  OF  REPLICATIONS  WITH  ZERO  FAILURES 

k 

it 

ZFPREP 

NO.  OF  COMPNTS.  WITH  ZERO  FAILURES  PER  REPLICATION 

k 

* 


ititititrtititititititititititititititititititit'hit-.’t-itititititititititititititititititititTtititititititititititititititititititititititititit 


PARAMETER  ( KK=10 , MAXALF=2 , NPRNT=0 ) 

PARAMETER  (MAXREP=1000,  MAXRUN=2000,  EPS=. 000001) 

REAL*4  UNIRV( 15 , 1000) ,TEMP( 1000) ,QI(KK) ,AI(KK) ,AHATI(KK) 

REAL*4  QHATI (KK) ,  NMAX,  NNMAX,  QHTMAX,  CHISQR(5,5),  ALFA(MAXALF) 
REAL*4  DF( 5 ) , AALFAC 5 ) , SUMNAI , RSHAT( MAXALF ,MAXREP) , RS 
REAL*4  KEYl(MAXREP) ,KEY2(MAXREP) ,KEY3(MAXREP) ,TRNSTR(MAXREP) 
REAL*4  DEGFR(MAXREP),  QHTUPR( MAXALF, MAXREP ), CHI SQ( MAXALF, MAXREP) 
REAL*4  QUPA1( MAXREP),  QUPA2(MAXREP) ,RHTSTR( MAXALF, MAXREP) 

REAL*4  DELTAR( MAXALF),  TRANSQC MAXREP) ,TRANSR( MAXREP) ,DIFF(MAXREP) 
REAL*4  DELSTR( MAXALF) , NIMIN , NIMAX , NIREAL( KK) 

REAL*4  RSHTBR( MAXALF, MAXREP) ,DELBRG( MAXALF) ,KEY4( MAXREP) 

REAL*4  TRANBR( MAXREP ) ,  RSBRDG  ,MSTRQ 
REAL*4  ZFPREP 
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REAL*4  AVGN , SUC , STUD , PTEMP( 10) , FDEG1 , FDEG2 , P3 , S3 , S4 

INTEGER  SEED,  MULT,  SORT,  TRIALS(15,1000),  BIGF,  FI(KK),  N'(KK) 
INTEGER  NINDX,  QINDX,  ERROR,  REPS,  SELCTA,  SELCTK,  TOTREP 
INTEGER  C1C15,  REPSHD,  SELCTB,  ALF,  FLAG,  LOOP,PRNT 
INTEGER  QUANTL( MAXALF) ,  TRUQNT( MAXALF) , ZFAILS , FAILS , INC 
INTEGER  NTEST,FCT,HFI 

CHARACTER*8  LOOPSOCMAXREP) 

DATA  SEED/123457/,  MULT/1/,  INC/1/ 

DATA  AALFA/. 01,. 05,. 9,. 95,. 99/,  DF/1, 5, 10,30,40/ 

DATA  ALFA/.  20,.  050/ 

DATA  SORT/ 0/ 

ASSIGN  8  TO  C1C15 
ASSIGN  9  TO  REPSHD 

CALL  COMPRS 
PRNT  =  NPRNT 

DO  12  1=1, KK 

AICD  =  9999. 

N(I)  =  99999999 
12  CONTINUE 

READ( 03 ,*)K,MSTRQ 

DO  11  1=1, K 
READC03,*)  AI(I) ,N(I) 

11  CONTINUE 


IF(K.NE.5)  THEN 

WRITE(1,'(" WARNING:  BRIDGE  STRUCTURE  ", 

+'  'ONLY  USES  THE  FIRST  5  COMPONENTS")') 

ELSE 
END  IF 

***INITIALIZE  THE  QHTUPR  ARRAY  OF  UNRELIABILITY  REPLICATIONS,  *** 

*  RSHAT  ARRAY  OF  ESTIMATE  SYSTEM  RELIABILITY  REPLICATIONS  * 

*  AND  RKTSTR  ARRAY  OF  EST.  SYST.  REL.  FOR  A  SERIES  SYST  WHEN  * 

***ALL  THE  COMPONENT  MISSION  TESTS  ARE  EQUAL  IN  NUMBER  *** 

DO  172  ALF=1, MAXALF 

DO  173  REPS=1 ,MAXREP 

QHTU?R( ALF, REPS)  =  0. 

RSHAT( ALF, REPS)  =  0. 

RHTSTR( ALF, REPS)  =  0. 

RSHTBR( ALF, REPS)  =  0. 

LOOPSO(REPS)='  *** ***  ' 

173  CONTINUE 

172  CONTINUE 

***SET  FLAG  TO  1  IF  ALL  COMPONENTS  HAVE  SAME  NO.  OF  MISSION  TESTS**** 
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FLAG=1 

DO  50  1=1, K  -1 

IF((N(I)  -  N(I+l)).NE.O)  THEN’ 

FLAG=0 

ELSE 
END  IF 
50  CONTINUE 

PRINT  *,  'FLAG  IS: ' ,  FLAG 

***MAIN  PROGRAM  OUTER  LOOP  START( EVERY  LOOP  IS  ONE  REPLICATION)*** 

ZFPREP  =  0. 

ZFAILS  =  0 
FAILS  =  0 
TOTREP  =  0 
LOOP  =  0 

10  IF(LOOP.  LT.MAXREP)  THEN 
LOOP  =  LOOP  +  1 
IF( TOTREP.  LT.  MAXR’JN)  THEN 
TOTREP  =  TOTREP  +  1 

SELCTA  =  1 
SELCTB  =  2 

***FILL  ARRAY  KEY(REPS)  WITH  INTEGERS  1  TO  K  TO  BE  USED  AS  OUTPUT*** 
***OF  THE  SUBROUTINE  SHSORT  *** 

DO  95  REPS=1,  MAXREP 
KEY 1( REPS)  =  REPS 
KEY2(REPS)  =  REPS 
KEY3(REPS)  =  REPS 
KEY4(REPS)  =  REPS 
95  CONTINUE 

***CALCULATE  NMAX  NOT  TO  PRINT  LONGER  THAN  THE  MAX  SAMPLE  SIZE*** 
***CALCULATE  THE  MAXIMUM  NO.  OF  TRIALS  AND  ITS  INDEX  NO. *** 

CALL  IMAX( N , K , NMAX , NINDX) 


***CALCULATE  THE  Ql'S  FROM  THE  GIVEN  MASTER  Q  AND  THE  Al'S*** 

DO  115  1=1,  K 

QIC  I)  =  MSTRQ  *  AI(I) 

115  CONTINUE 
C  S3=QI(3) 

S4=QI(1)**.50 
DO  120  1=1,15 

DO  125  J=1 ,500 

UNIRV( I , J)  =  999. 

TRIALS(I,J)  =  99999 
125  CONTINUE 

120  CONTINUE 

***  DRAW  UNIFORM  (0,1)  RV'S  AND  CONVERT  TO  BERNOULLI  TRIALS*** 
DO  130  1=1,  K 
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CALL  SRND(SEED,  TEMP,  N(I),  MULT,  SORT) 
DO  135  J=l,  NCI) 

UNIRV(I.J)  =  TEMP(J) 

IF  (UNIRV(I,J).  LE.  1  -  QI C I ) )  THEM 
TRIALS(I , J)  =  0 

PT  Cp 

TRIALS(I, J)  =  1 
END  IF 

135  CONTINUE 
130  CONTINUE 


***CALCULATE  THE  NO.  OF  FAILURES  FOR  EACH  COMPONENT*** 

DO  150  1=1,  K 
FI  ( J. )  =  0 
150  CONTINUE 
IONECT  =  0 

***CALCULATE  THE  F  SUB  I'S  AND  THE  GRAND  TOTAL  NO.  OF  FAILURES*** 
BIGF  =  0 
DO  155  1=1,  K 

DO  160  J=l,  N(I) 

FI( I)  =  FI( I)  +  TRIALS(I.J) 

160  CONTINUE 

IF  (FI( I)  .EQ.  0)  THEN 
ZFPREP=ZFPREP-H 
ELSE 
ENDlf 

BIGF  =  BIGF  +  FI( I) 

QHATI(I)  =  REAL(FI(I) )  /  N(I) 

155  CONTINUE 

***CHANGES  FOR  SERIES  PARALLEL  SYSTEM  (COMPONENT  2)*** 

IF  C FI C 2 )  .EQ.  0)  THEN 
ZFPREP=ZFPREP  -  1 
END  IF 

BIGF  =  BIGF  -  FI ( 2 ) 

FI Cl)  =  0 
DO  161  1=1, N(2) 

HFI=0 

DO  162  J=l,2 

CALL  SRND(SEED,  PTEMP(J),  N(2),  MULT,  SORT) 

IF  (PTEMP(J)  .GT.  1-S4)  THEN 
HFI  =  HFI  +  1 
ENDl'F 
162  CONTINUE 

IF  (HFI  .EQ.  2)  THEN 
FI( 2)  =  FI ( 2 )  +  1 
ENDIF 

161  CONTINUE 

BIGF  =  BIGF  +  FI(2) 

IF  (FI( 2)  .EQ.  0)  THEN 
ZFPREP  =  ZFPREP  +  1 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 164 
C 
C 
C 

C163 

C 

C 

C 

C 

C 
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ELSE 
END  IF 

IF  (FI(3)  .EQ.  0)  THEN 
ZFPREP=ZFPREP  -  1 
END  IF 

BIGF  =  BIGF  -  FI(3) 

FIC3)  =  0 
DO  163  1=1, N(3) 

HFI=0 

D0  C ALL Jsk’D( SEED,  PTEMP(J),  N(3),  MULT,  SORT) 
IF  (PTEMP(J)  . GT.  1-S3)  THEN 
HFI  =  HFI  +  1 
ENDIF 
CONTINUE 

IF  (HFI  .GE.  2)  THEN 
FI(3)  =  FI(3)  +  1 
ENDIF 
CONTINUE 

BIGF  =  BIGF  +  FI(3) 

IF  (FI C 3 )  .EQ.  0)  THEN 
ZFPREP  =  ZFPREP  +  1 

ELSE 

ENDIF 

DO  19  1=1, K 
QI(I)  =  MSTRQ  *  AI(I) 

QKATI(I)  =  REALCFI(D)  /  N(I) 

CONTINUE 

QI(4)  =  QI(4)**2 

QI ( 3 ) 1=" l1 ' -  ( C 3 .  *P3**2*QI ( 3 ) ) +( P3**3 ) ) 

-V1 _ r\-n  />AUlOnMrKTTC  TW  AT  WAVF.  FA 


***COUNTS  NUMBER* OF  COMPONENTS  THAT  HAVE  FAILED*** 


D°  IF6CFI(I)  .NE.  0)  I ONECT= IONECT+ 1 
156  CONTINUE 

***CASE  WHERE  NO  COMPONENTS  HAVE  ANY  FAILURES*^* 


200 


* 

205 


IFCBIGF.EQ.  0)  THEN 

LOOPSO(LOOP)=  *ZERO" 
ZFAILS  =  ZFAILS  +  1 


t 


AVGN=0. 0 
DO  200  1=1, K 

AVGN=AVGN+REAL(N( I) ) 


CONTINUE 

AVGN=AVGN/REAL(K) 

DO  205  ALF=1 ,  MAXALF 
RSHAT(ALF,LOOP)= 
IF(FLAG.EQ.  1)  THEN 

RHTSTRC  ALF , LOOP ) 


ALFA(ALF)**(1.  /AVGN) 
=ALFA(ALF)**C1. /N( 1) ) 


ELSE 
END  IF 

PRINT  *,LOOP 
CONTINUE 


,LOOP, 'RSHAT* ,RSHAT( ALF, LOOP) 


4S 


DEGFR(LOOP)  =  2. 

GO  TO  10 

FT  FF 

FAILS  =  FAILS  +  1 
END  IF 

***COUNTS  NUMBER  OF  COMPONENTS  THAT  FAIL  RECORDS  NO.  COMPT  TESTS*** 
FCT=0 

DO  202  1=1, K 

IF  (FI( I)  .NE.  0)  THEN 
FCT=FCT+1 
NTEST=N(I) 

ENDIF 

202  CONTINUE 

***FIND  THE  MAX  OF  THE  INDIVIDUAL  COMPONENT  UNRELIABILITIES*** 

CALL  RMAX(QHATI,  K,  QHTMAX,  QINDX) 

IF  (LOOP  .EQ.  1)  THEN 
ENDIF 

***CALCULATE  THE  AHAT  SUB  I'S  (WEIGHT  ESTIMATES:)*** 

***IF  COMPONENT  HAS  NO  FAILURES  AHAT  SUB  I  IS  ZERO*** 

SUMNAI  =  0. 

DO  165  1=1,  K 

AHATI(I)  =  QHATI(I)  /  QHTMAX 
SUMNAI  =  SUMNAI  +  N(I)  *  AHATI(I) 

165  CONTINUE 

***1  COMPONENT  FAILURE  SERIES  SYSTEM*** 

IF  (FCT  .EQ.  1)  THEN 

LOOPSO(LOOP)='  *ONECF*  ' 

DO  305  ALF=1 ,MAXALF 
SUC=REAL(NTEST-BIGF) 

FDEG1=2. *(REAL(BIGF)+1.  ) 

FDEG2=2.  *SUC 

STUD=FIN( 1.  -ALFA(ALF) ,FDEG1 ,FDEG2) 
RSHAT(ALF,L00P)=SUC/(SUC+(REAL(BIGF)+1.  )*STUD) 

*  PRINT  *,'SUC=’ ,SUC,’FAIL=’ ,BIGF,’NTEST=’ ,NTEST 

*  PRINT  *,'FIN='  STUD 

*  PRINT  *, 'ALFA-  ,ALFA(ALF) , ’RSHAT=' ,RSHAT(ALF,LOOP) 

IF  (FLAG  .EQ. 1)  THEN 

RHTSTR( ALF , LOOP)=RSHAT( ALF , LOOP) 

ELSE 

ENDIF 

305  CONTINUE 

ENDIF 

***CALCULATE  1  REPLICATION  OF  UPPR  ALFA  C.  L.  ON  SYSTEM  RELIABILITY*** 
DEGFR(LOOP)  =  2  *  (1  +  BIGF) 

DO  170  ALF=1,  MAXALF 

CALL  MDCHKl  -  ALFA( ALF)  ,DEGFR(LOOP)  ,CHISQ( ALF, LOOP) ,  ERROR) 


49 


QHTUPR(ALF,LOOP)  =  CHISQ( ALF, LOOP)  /  (2  *  SUMNAI) 

IFCFLAG.  EQ. 1)  THEN 

RHTSTRC ALF , LOOP)  =  1  -(CHISQ( ALF, LOOP)  /  REAL(2*N(1))) 

ELSE 
END  IF 

***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  COMPNTS.  IN  SERIES*** 
IF  (FCT  .NE.  1)  THEN 

CALL  RHTSRS(QHTUPR( ALF, LOOP) ,  AHATI ,K,  RSHAT( ALF , LOOP) ) 
ENDIF 

***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  BRIDGE  STRUCTURE*** 

IF  ( IONECT  .NE.  1)  THEN 

CALL  RHTBRGC  QHTUPR(  ALF ,  LOOP ):,  AHATI ,  K , RSHTBR(  ALF ,  LOOP ) ) 
ENDIF 

170  CONTINUE 

***EXACTLY  1  COMPONENT  FAILS  AND  REDUNDANT  COMPONENT*** 

IF  ((IONECT  .EQ.  1)  .AND.  (K  .EQ.5))  THEN 
DO  207  1=1,  K 

NIREAL(I)  =  REAL(N(I)) 

207  CONTINUE 

CALL  USMNMX( N IRE AL , K , INC , NIMI N , NIMAX ) 

DO  206  ALF=1,MAXALF 

RSHTBR( ALF , LOOP)=ALFA( ALF)**( 1.  /NIMIN) 

206  CONTINUE 
ENDIF 

***THIS  ELSE  AND  ENDIF  ARE  FOR  THE  TEST  AGAINST  MAXRUN*** 

ELSE 

WRITE ( 1 , ' (  "  "  . /  "  PROGRAM  EXCEEDED  THE  MAX  NO.  OF  RUNS ' 1 , 
+"  ALLOWED  OF:  ",16)*)  TOTREP 
GOTO  9999 

END  IF 
GOTO  10 
END  IF 

C  WRITE(  2,' ("  UNSORTED  RSHAT  1  IS:  "  ,/10(F8.  5))' ) 

C  +( RSHAT( 1 . LOOP ) ,  L00P=1,  MAXREP) 

C  WRITE(2,f(  "UNSORTED  RSHAT  2  IS:  "  ,/10(F8.  5))  '  ) 

C  +(RSHAT(2,L00P) ,  L00P=1,  MAXREP) 

C  IF(FLAG.EQ.  1)  THEN 

C  WRITE(  2,’ ("  UNSORTED  RHTSTR  1  IS:  "  ,/10(F8.  5)) '  ) 

C  +(RHTSTR(1,L00P).  L00P=1,  MAXREP) 

C  WRITE( 2, '(*' UNSORTED  RHTSTR  2  IS:  "  ,/10(F8. 5)) ' ) 

C  +( RHTSTRC 2, LOOP),  L00P=1,  MAXREP) 

C  ELSE 

C  END  IF 

C  IF(K.EQ. 5)  THEN 

C  WRITE(  2,'  ("  UNSORTED  RSHTBR  1  IS:  "  ,/10(F8.5))‘) 

C  +(RSHTBR(1,L00P) ,  L00P=1,  MAXREP) 
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o  o  o  o  o  o 


WRITE ( 2 , * ( ' *  UNSORTED  RSHTBR  2  IS:  "  ,/10(F8. 5)) 1 ) 
+(RSHTBR(2,LOOP) ,  LOOP=l,  MAXREP) 

ELSE 
END  IF 

WRITE  (2,  '("ZERO  AND  ONE  FAILURE  REPS:  '  '  ,/10(A8))  '  ) 

+  (LOOPSOC LOOP), LOOP=l, MAXREP) 

***SORT  THE  ARRAYS  OF  SYSTEM  UNRELIABILITIES( 1  FOR  EACH  CONF.  LEVEL)*** 

DO  700  ALF=1,  MAXALF 

DO  800  REPS=1 ,  MAXREP 

TRANSQ(REPS)  =  QHTUPR( ALF,REPS) 

TRANSR(REPS)  =  RSHAT( ALF,REPS) 

TRNSTR(REPS)  =  RHTSTR( ALF , REPS ) 

TRANBR(REPS)  =  RSHTBR( ALF , REPS) 

800  CONTINUE 

CALL  SHS0RT(TRANSQ,KEY1, MAXREP) 

CALL  SHSORT(TRANSR,KEY2, MAXREP) 

CALL  SHSORT(TRNSTR,KEY3, MAXREP) 

CALL  SHS0RT(TRANBR,KEY4, MAXREP) 

DO  900  REPS=1 ,  MAXREP 

QHTUPR( ALF, REPS)  =  TRANSQ(REPS) 

RSHAT( ALF, REPS)  =  TRANSR(REPS) 

RHTSTRC ALF, REPS)  =  TRNSTR(REPS) 

RSHTBR( ALF, REPS)  =  TRANBR(REPS) 

900  CONTINUE 

700  CONTINUE 

***PRINT  OUTPUT  REPORT  HEADINGS*** 


WRITEC 1,6666) 

WRITEC 1,6667)  MAXREP 
WRITEC 1,6668)  K 
WRITEC 1,6669) 

IFCK.EQ.5)  THEN 
WRITEC 1,6699) 

ELSE 
END  IF 

WRITEC 1,6670)  MSTRQ 
WRITEC 1,6671) 

WRITEC 1,C 1C 15) 

WRITEC 1,3334)  AI 
WRITEC 1,0007) 

WRITEC 1,C1C15) 

WRITEC 1,3334)  QI 
WRITEC 1,0005) 

WRITEC 1,C 1C 15) 

WRITEC 1,3335)  N 
WRITEC 1,6674) 

***COMPUTE  THE  VALUE  RS  OF  THE  TRUE  SYSTEM  REL.  FNCTN.  (SERIES  SYSTEM)*** 
***  AND  FOR  THE  5 -COMPONENT  BRIDGE  STRUCTURE*** 


CALL  RSRS(QI,K,RS) 
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WRITE(  1 ,  ’  (  '  ’  ",////"  THE  TRUE  SERIES  SYSTEM  ", 

+  " RELIABILITY  VALUE  IS:  "  ,T51  ,F8.  5)  1 )  RS 
CALL  RBRIDGC  QI , K , RSBRDG ) 

IF(K. EQ.  5)  THEN 

WRITE (1 , * (  "  "  Jill' '  THE  TRUE  BRIDGE  STRUCTURE  ' ' , 
+' 'RELIABILITY  VALUE  IS: 1 ' ,T51,F8.  5)' )  RSBRDG 
ELSE 
END  IF 

WRITE( 1,6675) 


***COMPUTE  THE  DIFFERENCE  'DELTAR'  BTWN.  RS  AND  RSHAT  OF  THE  THEO*** 
***RETICAL  QUANTILE  GIVEN  BY  ALFA(MUST  USE  SORTED  RSHAT  ARRAY)*** 

IF(FLAG.  EQ.  1)  THEN 
WRITE( 1,5755) 

ELSE 
END  IF 

DO  450  ALF=1 ,  MAXALF 

QUANTL(ALF)  =  MAXREP  *  (1  -  ALFA(ALF)) 

DELTAR(ALF)  =  RS  -  RSHATC  ALF , QUANTL( ALF ) ) 

DELBRG(ALF)  =  RSBRDG  -  RSHTBR( ALF , QUANTLC  ALF ) ) 

IF(FLAG.  EQ.  1)  THEN 

DELSTRCALF)  =  RS  -  RHTSTRC ALF, QUANTLC ALF)) 

WRITE( 1,5555)  MAXREP,  ALFA(ALF) ,  REAL( QUANTLC ALF ) ) 
WRITE( 1,5656)  RHTSTRC  ALF , QUANTLC  ALF ) ) 

WRITEC 1,5657)  DELSTRCALF) 

ELSE 
END  IF 

IFCK.EQ.5)  THEN 

DELBRGCALF)  =  RSBRDG  -  RSHTBRC ALF, QUANTLC ALF) ) 

WRITEC 1,5555)  MAXREP,  ALFA(ALF),  REALC QUANTLC ALF)) 
WRITEC 1,5666)  RSHTBRC  ALF , QUANTLC  ALF) ) 

WRITEC 1,5667)  DELBRGCALF) 

ELSE 
END  IF 

WRITEC 1,5555)  MAXREP,  ALFACALF),  REALC QUANTLC ALF)) 

WRITEC 1,5556)  RSHATC ALF, QUANTLC ALF)) 

WRITEC 1,5557)  DELTARCALF) 

450  CONTINUE 

PRINT*,  ' QUANTLC 1)  IS:',  QUANTLC 1) 

PRINT*,  'QUANTLC 2)  IS:',  QUANTLC 2) 

***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 

***  ********  RSHAT  *******  *** 


WRITEC 1,6676) 

DO  400  ALF=1, MAXALF 
TRUQNTCALF)  =  0 

DO  500  REPS=1,  MAXREP 

DIFF(REPS)  =  RS  -  RSHATC ALF, REPS) 

500  CONTINUE 

DO  600  REPS=1 ,  MAXREP 

IF( ABSCDIFFCREPS) ). LE. EPS)  THEN 
TRUQNTCALF)  =  REPS 

WRITEC 1 , ' C  "  "  , /  " TRUE  CONFIDENCE  LIMIT  IS:  "  , 
+  F8. 4) ' ) 


52 


+  GOTOMO^  /  REAL(MA>:REP>)  *  100. 

ELSEIF(DIFF(REPS). LT. 0. )  THEN 
TRUQNT(ALF)  =  REPS 
GO  TO  610 

ELSE 
END  IF 

600  CONTINUE 

610  IF(TRUQNT(ALF).  EQ. 0. )  THEN 

WRITE (1,4443)  ALFA(ALF) 

+  WES-i* -(M  "./"the  SMALLEST", 

+  HAXREP)  “  BOTEEfi  RS  m  RSKAT  IS;  "  -«0.  5) ' )  Dim 

ELSEIF(TRUQNT(ALF).  EQ.  1.  )  THEN 
WRIT£( 1,4442)  ALFA(ALF) 

WRITE(1,’C”  ALL  RSKAT", 

+  ARE  GREATER  THAN  RS"  )'  ) 

+  ^jp(ABS(DIFF(TRUQNT(ALF))).  LE.  ABS(DIFF(TRUQNT( ALF)  -  1))) 

WRITE (1,4444)  ALFA(ALF), 

L(m?S’T(ALF)  1  HEAL(MAXREP))  *  100 

MlI(l'4M61  RSHATCAIF.OTQNTUDF)) 

ELSE 

WRITE( 1,4444)  ALFA(ALF) 

u4??Frw/A/Ln"^  '  REAL(NAXREP))  *  loo. 

WRITE! 1* 444 in  RSHAT(AEE,TRUQNT(ALF)-1) 

620  END  IF  ’  J 

400  CONTINUE 

-  1 * 

IF(K.  EQ.  5)  THEN 
DO  401  ALF=1,MAXALF 
TRUQNT(ALF)  =  0 

DO  501  REPS=1,  MAXREP 

5oi  continueF(REPS)  =  RSBRDG  “  RSHTBR(ALF,REPS) 

DO  601  REPS=1,  MAXREP 

IF(ABS(DIFF(REPS)).  LE.  EPS)  THEN 
TRUQNT(ALF)  =  REPS 

+  F8I4)'),'("  ">/'"TRUE  CONFIDENCE  LIMIT  IS:  ”, 

+  (TRUQNT(ALF)  /  REAL(MAXREP))  *  ioo 

GO  TO  621 

ELSEIF(DIFF(REPS).  LT.  0.  )  THEN 
TRUQNT(ALF)  =  REPS 
GO  TO  611 

ELSE 

end  if 

601  CONTINUE 

6H  IF(TRUQNT(ALF).  EQ.  0.  )  THEN 

WRITE( 1,4443)  ALFA(ALF) 
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WRITE ( 1 , ' (  "  "  , /  "  THE  SMALLEST' ' , 

+  "  DIFFERENCE  BETWEEN  RSBRDG  AND  RSHTBR  IS:  "  , 

+  F10. 5) '  )  DIFFC MAXREP) 

ELSEIF(TRUQNTCALF).  EQ.  1.  )  THEN 
WRITEC 1,4442)  ALFA(ALF) 

WRITEC 1 , * (  "  "  ,  /  ’ ’  ALL  RSHTBR ' ' , 

+  "  ARE  GREATER  THAN  RSBRDG1 ' )  ’  ) 

ELSEIF(ABS(DIFF(TRUQNT(ALF))).LE. ABS(DIFF(TRUQNT(ALF)  -  1))) 
+  THEN 

WRITEC 1,4444)  ALFACALF), 

+  (TRUQNTCALF)  /  REAL(  MAXREP  ):)  *  100. 

WRITE ( 1 , 4449 )  RSHTBR( ALF , TRUQNT( ALF) ) 

WRITE (1,4446) 

ELSE 

WRITEC 1 , 4444)  ALFA( ALF) , 

+  ((TRUQNT(ALF)-l)  /  REAL( MAXREP))  *  100. 

WRITEC 1,4449)  RSHTBRCALF,TRUQNTCALF)-1) 

WRITEC 1,4447) 

621  END  IF 

401  CONTINUE 
ELSE 
END  IF 


***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 

***  ********  RHTSTR  ********  *** 

IFCFLAG.EQ.  1)  THEN 
DO  4400  ALF=1,MAXALF 
TRUQNTCALF)  =  0 

DO  5500  REPS=1 ,  MAXREP 

DIFFCREPS)  =  RS  -  RHTSTRC ALF, REPS) 

5500  CONTINUE 

DO  6600  REPS=1,  MAXREP 

IF(ABS(DIFF(REPS) ).  LE.  EPS)  THEN 
TRUQNTCALF)  =  REPS 

WRITEC 1 , ' C  "  "  , / ' 'TRUE  CONFIDENCE  LIMIT  IS: ' 1 , 

+  F6. 4) 1 ) 

+  CTRUQNT(ALF)  /  REAL( MAXREP) )  *  100. 

GO  TO  6620 

ELSEIFCDIFFCREPS).  LT. 0.  )  THEN 
TRUQNTCALF)  =  REPS 
GO  TO  6610 

ELSE 
END  IF 

6600  CONTINUE 

6610  IFCTRUQNTCALF).EQ.  0.  )  THEN 

WRITEC 1,4443)  ALFACALF) 

WRITEC  1 ,' C  "  "  '  'THE  SMALLEST", 

+  * ’  DIFFERENCE  BETWEEN  RS  AND  RHTSTR  IS:  "  , 

+  F9. 5) 1 )  DIFF( MAXREP) 

ELSEIF(TRUQNT(ALF).  EQ.  1.  )  THEN 
WRITEC 1,4442)  ALFACALF) 

WRITEC  1,’C"  ",/" ALL  RHTSTR"  , 

+  "ARE  GREATER  THAN  RS"  )  ’ ) 

ELSEIF(ABSCDIFFCTRUQNTCALF))).LE. ABSCDIFF(TRUQNTCALF)  -  1))) 
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+  THEN 

WRITEC 1 ,4444)  ALFA(ALF) , 

+  (TRUQN'T(ALF)  /  REAL(HAX'REP))  *  100. 

WRITEC  1 ,4448)  RHTSTR( ALF , TRUQNTfALF ) ) 

WRITEC 1,4446) 

ELSE 

WRITEC 1,4444)  ALFACALF), 

+  C  CTRUQNTC ALF) - 1 )  /  REALCMAXREP))  *  100. 

WRITEC 1 , 4448 )  RHTSTRC  ALF , TRUQNTC ALF ) - 1 ) 

WRITEC 1,4447) 

6620  END  IF 

4400  CONTINUE 
ELSE 
END  IF 

***PRINT  THE  ARRAYS  PERTINENT  TO  THE  OUPUT  OF  EACH  REPLICATION*** 

IFCPRNT.  EQ.  1)  THEN 
I  =  1 

185  WRITEC 1,REPSHD)  ALFACSELCTA) ,  ALFA( SELCTA) , 

+ALFACSELCTB) ,ALFA(SELCTB) .ALFACSELCTA) , ALFACSELCTA) .ALFACSELCTB) , 
+ALFACSELCTB) 

175  IFCI.GE. CMAXREP  +  1))  THEN 
GOTO  180 

ELSE 

"""  IFC  C  I-  EQ.  71).  OR.  Cl-  EQ.  211).  OR.  C  I.  EQ.  351).  OR.  Cl.  EQ.  491).  OR. 

+  Cl  -  EQ.  631).  OR.  Cl.  EQ.  771).  OR.  (I.  EQ.  911).  OR.  C I.  EQ.  1051)  )  THEN 
I  =  I  +  70 
WRITEC 1, '("  +  ")’) 

GOTO  185 

ELSE 

WRITEC 1,3336)  I,  INTC DEGFRC I ) ) ,  CHISQ(1,I),  QHTUPRC1,I), 

+  CHISQC2, 1) ,  QHTUPRC 2,1) 

END  IF 

IFC I  +  70.  LE. HAXREP)  THEN 

WRITEC 1 , 3337 )  1+70 , INT( DEGFRC 1+70) ) ,CHISQC 1 , 1+70) , 

+  QHTUPRC 1 , 1+70) ,CHISQC 2 , 1+70) ,QHTUPR( 2 , 1+70) 

ELSE 
END  IF 
1  =  1  +  1 
GOTO  175 
180  END  IF 
ELSE 
ENDIF 

9999  WRITEC  1,'C "THE  TOTAL  NO  OF  REPS  WAS:",  18)')  TOTREP 

WRITEC  1,'C  "THE  TOTAL  NO  OF  EFFECTIVE  REPS  WAS:  "18)')  LOOP 
WRITEC 1,'C  "THE  TOTAL  NO  OF  NO  FAILURE  RUNS  WAS:  '  ,18)')  ZFAILS 
WRITEC  1,’C  "AVERAGE  NO.  OF  COMPONENTS  PER  REPLICATION  WITH  ", 

+ " NO  FAILURES:  "  ,F5.  2)’)  ZFPREP  /  MAXREP 
WRITEC1,'C"THE  TOTAL  NO  OF  RUNS  WITH  FAILURES  WAS:  ”,I8)')  FAILS 
0008  FORMAT  C/  3X,’C  l',5X,'C  2', 

+5X , ' C  3' ,5X, 1 C  4',5X,'C  5',5X,'C  6',5X,'C  7',5X, 

+'C  8',5X,'C  9',5X,'C  10 1 ,4X, ' C  ll',4X, 

+'C  12',4X,'C  13',4X,'C  14',4X,'C  15') 

0009  FORMATC / IX , ' REP  NO' ,2X, 'DF' , IX, 'CHISQRC ' ,F4. 3, ' ) ’ , IX, 


55 


+'QHTUPR(' ,F4.3,’)'  1X,'CHISQR('  F4.3,')'  1X,'QHTUPR(' ,F4.5,’)' , 
+2X,’REP  NO’ , 2X, 'DF‘ , IX. 1 CH1SQR( ' ,F4. 3 . 1 )  , IX. 

+' QHTUPR( ’ ,F4. 3 , ’ ) ' , IX , f  CHISQR( ' ,F4. 3 , ‘ ) ’  IX, f  QHTUPR( ' ,F4.  3 , ' ) ' /) 
OOOl  FORMAT  (///'UNIFORM  RANDOM  DEVIATES  ARE:  ) 

0002  FORMAT  (///'BERNOULLI  TRIALS  ARE: '  ) 

0003  FORMAT  (///'TOTAL  NO.  OF  FAILURES  FOR  EACH  COMPONENT: ') 

0004  FORMAT  (///'ESTIMATED  UNRELIABILITY  FOR  EACH  COMPONENT:') 

0005  FORMAT  (///'TOTAL  NUMBER  OF  MISSION  TESTS:  ') 

0006  FORMAT  (///'ESTIMATED  WEIGHTS  FOR  EACH  COMPONENT:  ') 

0007  FORMAT  (///' Q  I  FOR  EACH  COMPONENT: ') 

1111  FORMAT  (15F8.5) 


' ,F4. 3, ’ )  CONFIDENCE  ', 
' ,F4. 3 , ' )  CONFIDENCE  ', 


2222  FORMAT  (/IX, 15(14, 4X)) 

3333  FORMAT  (/IX, 15( I4,4X)) 

3334  FORMAT  (/15F8.  5) 

3335  FORMAT  (/1X,15(I4,4X)) 

3336  FORMAT  (T3. 14, T9 , 13 ,T13 ,F11. 5 ,T27 ,F8. 5 ,T39 ,F11. 5 ,T53 ,F8.  5) 

3337  FORMAT  ( '+' ,T67 . 14,T73 , 13 ,T77 ,F11.  5 .T91 ,F8.  5 ,T103,F11.  5 ,T117 ,F8.  5) 

4442  FORMAT  ('  ',///'THE  RESULTING  (1  -  ' ,F4. 3,')  CONFIDENCE  ', 

+' LIMIT  IS: ' ,T50 . 1  00.000  ') 

4443  FORMAT  ('  ’ ,///fTHE  RESULTING  (1  -  ',F4.3,')  CONFIDENCE  ', 

+' LIMIT  IS: ' ,T50  ' 100. 0000') 

4444  FORMAT  ('  ',///fTHE  RESULTING  (1  -  ’ ,F4. 3,')  CONFIDENCE  ', 

+' LIMIT  IS: ' ,T50 ,F8. 4) 

4445  FORMAT  ('  ',/'THE  RSHAT  VALUE  CLOSEST  TO  RS  IS:  ’,T51,F8.5) 

4446  FORMAT  (’:  ' ,/' (FIRST  NEGATIVE  DIFFERENCE)’) 

4447  FORMAT  ('  ',/'( ELEMENT  PRECEEDING  FIRST  NEGATIVE  DIFFERENCE)') 

4448  FORMAT  ('  ' ,/'THE  RHTSTR  VALUE  CLOSEST  TO  RS  IS:  \T51,F8.5) 

4449  FORMAT  ('  ',/'THE  RSHTBR  VALUE  CLOSEST  TO  RSBRDG  IS:  \T51,F8.5) 

5555  FORMAT  ('  ’,///'THE  ' , 14, ' ( 1- ' ,F4. 3 , ' )  QUANTILE  IS: ' ,T49 ,F8.  3) 

5556  FORMAT  (’  ',/'THE  VALUE  OF  RSHAT  FOR  THAT  QUANTILE  IS: ' ,T51,F8.5) 

5557  FORMAT  ('  ' ,/'THE  DIFFERENCE(RS  -  RSHAT)  IS: ' ,T51,F8.  5) 

5656  FORMAT  ('  ' ,/'THE  VALUE  OF  RHTSTR  FOR  THAT  QUANTILE  IS:  ',T51,F8.  5) 

5666  FORMAT  ('  ' ,/'THE  VALUE  OF  RSHTBR  FOR  THAT  QUANTILE  IS: ' ,T51,F8.5) 

5657  FORMAT  ('  '  ,/'THE  DIFFERENCES  -  RHTSTR)  IS:  '  ,T51,F8.  5) 

5667  FORMAT  ('  '  ,/'THE  DIFFERENCES  -  RSHTBR)  IS:  ’  ,T51  ,F8.  5) 

5755  FORMAT  ('  ', ///’SINCE  THE  NO.  OF  MISSION  TESTS  IS  THE  SAME  FOR', 

+'  ALL  COMPONENTS  THE  CLOSED  FORM  SERIES  SYSTEM  RELIABILITY  ' , 

+' ' 'RHTSTR' '  IS  COMPUTED' ) 

6666  FORMAT  i  t 

+ ' ***********  RUN  INPUT  SETTINGS  ******************************* 1 

6667  FORMAT  ('  './/'NUMBER  OF  REPLICATIONS:  ' ,T50, 14) 

6668  FORMAT  ('  ’ .//'NUMBER  OF  COMPONENTS: ' ,T50,I4) 

6669  FORMAT  ('  './/'SYSTEM  RELIABILITY  FUNCTION: ' ,T50, 'SERIES' ) 

6699  FORMAT  ('  './/'SYSTEM  RELIABILITY  FUNCTION:  ' ,T50 ,' BRIDGE' ) 

6670  FORMAT  (’  './/'MASTER  UNRELIABILITY  USED: ’,T50,F8.5) 

6671  FORMAT  ('  './/'INPUT  WEIGHTS(A  SUB  I"S):’) 

6674  FORMAT  ('+' , /// 1  *********************************************** ' , 
+'**R  UN  RESULT  S****************************************' , 

4- 1  ************** 1  ) 

6675  FORMAT  ('+' , / / / ' ************************************************ 1 , 
+'  ESTIMATE  ERRORS  ********************************************** , 

_jn  t  J.  J.  J, j 

6676  FORMAT  (’+' , / / /' *********************************************** ' , 
+'  TRUE  CONFIDENCE  LIMITS  A**************************************' , 
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+  ' ************** >  s 

end  j 
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APPENDIX  E.  FORTRAN  CODE  FOR  THE  PREFERRED  LOWER 
CONFIDENCE  LIMIT  FOR  SYSTEM  RELIABILITY  (SERIES-PARALLEL 
SYSTEM  WITH  A  2/3  COMPONENT 


PROGRAM  ZFYSCN 


******************** 

* 


TITLE:  BINOMIAL  INTERVAL  ESTIMATION  PROCEDURE  * 

ZERO  FAILURES  ALLOWED;  NO  SCALING  * 

AUTHOR:  E.  F.  BELLINI,  LT,  USN  * 

MODIFIED  BY:  LT  VALERIE  A.  COVINGTON,USN  (MAR  90) 

DATE:  NOV  89  * 

JU 

THIS  PROGRAM  COMPUTES  THE  TRUE  CONFIDENCE  LEVEL  FOR  THE  ESTIMATE  * 
RELIABILITY  OF  A  SERIES  AND  BRIDGE  SYSTEM  GIVEN  THE  RELIABILITY  * 
OF  THEIR  COMPONENTS  * 

* 

IN  ITS  PRESENT  CONFIGURATION  THIS  PROGRAM  IS  SET  UP  TO  RUN  12  * 

TIMES  EACH  TIME  PRODUCING  1000  REPLICATIONS  USING  A  DIFFERENT  * 
SET  OF  INPUT  DATA.  RUN  THE  PROGRAM  FROM  CMS  BY  TYPING  'B1  EXEC'.* 
THE  REXX  EXEC  PROGRAM  * 

'Bl'  CALLS  THE  INPUT  FILES  TO  BE  READ  AND  NAMES  THE  12  OUTPUT 
FILES  RESULTING  FROM  THE  12  CONSECUTIVE  RUNS.  BY  EDITING  THE  * 

INDEX  COUNTERS  I,  J,  K  OF  THE  ’Bl’  EXEC  ONE  CAN  RUN  ANY  USER-  * 

SPECIFIC  RUN  FROM  JUST  ONE  RUN  TO  ALL  12.  * 

* 

VARIABLES  USED  * 


* 

AHATI 

* 

AI 

Jf 

ALFA 

Hz 

BIGF 

i: 

CHISQ 

j. 

C1C15 

•U 

DEGFR 

* 

DELBRG 

* 

DELSTR 

JU 

DELTAR 

* 

DIFF 

* 

EPS 

* 

ERROR 

* 

FAILS 

* 

FI 

* 

FLAG 

* 

INC 

JU 

KEY1 

* 

KEY  2 

* 

KEY3 

* 

KEY4 

Hz 

KK 

Hz 

LOOP 

Hz 

MAXALF 

WEIGHT  ESTIMATES  FOR  EACH  COMPONENT  * 
INPUT  WEIGHTS  FOR  EACH  COMPONENT  * 
LEVELS  OF  SIGNIFICANCE  * 
TOTAL  NO.  OF  FAILURES  FOR  EACH  REPLICATION  * 
CHI-SQUARE  RANDOM  VARIABLE  VALUE  * 
FORMAT  LABEL  * 
DEGREES  OF  FREEDOM  * 
DIFFERENCE  FOR  BRIDGE  SYSTEM  * 
DIFFERENCE  FOR  SERIES  SYSTEM-  CLOSED  FORM  * 
DIFFERENCE  FOR  SERIES  SYSTEM  * 
DIFFERENCE  (TRUE  REL.  -  ESTIMATED  REL. )  * 
SMALL  QUANTITY ( CONSTANT)  * 
PARAMETER  FOR  IMSL  ROUTINE  * 
COUNTS  NO.  OF  REPLICATIONS  WITH  AT  LST.  1  FAILURE  * 
NO.  OF  FAILURES  FOR  EACH  COMPONENT ALL  MISSION  TST)* 
1  IF  ALL  COMP.  HAVE  SAME  NO.  OF  MISSION  TESTS  * 
INCREMENT  STEP  SIZE  FOR  ROUTINE  USMNMX  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 


ARRAY  SIZING  PARAMETER  FOR  THE  MAX  NO  OF  COMPONENTS* 
COUNTS  NO.  OF  REPLICATION  PERFORMED  * 
MAX  NO.  OF  SIGNIFICANT  LEVELS  DESIRED( ARRAY  SIZING)* 
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it 

MAXREP  : 

5r 

MAXRUN  : 

iV 

MSTRQ  : 

rr 

MULT  : 

j- 

N  : 

* 

NIMAX  : 

rr 

NIMIM  : 

* 

NINDX  : 

* 

NIREAL  : 

* 

NMAX  : 

* 

NPRNT  : 

* 

PRNT  : 

* 

QHATI  : 

is 

QHTMAX  : 

i: 

QHTUPR  : 

i; 

QI  : 

if 

QINDX  : 

ic 

QUANTL  : 

it 

REPSHD  : 

JU 

RKTSTR  : 

* 

RS 

if 

RSBRDG  : 

if 

RSHAT  : 

it 

RSHTBR  : 

it 

SEED  : 

it 

SELCTA  : 

it 

SELCTB  : 

if 

SORT  : 

it 

SUMNAI  : 

it 

TEMP  : 

it 

TOTREP  : 

is 

TRANBR  : 

is 

TRANSQ  : 

it 

TRANSR  : 

is 

TRIALS  : 

it 

TRNSTR  : 

it 

TRUQNT  : 

is 

UNIRV  : 

is 

ZFAILS  : 

it 

ZFPREP  : 

MAX  NO.  OF  REPLICATIONS  -  * 

MAX  NO.  OF  PROGRAM  ITERATIONS  ALLOWED  * 

MASTER  UNRELIABILITY( USED  WITH  Al’S  TO  CALC.  Ql'S)  * 
MULTIPLIER  FOR  RANDOM  NO.  GENERATOR  SRND  * 

NO.  OF  MISSION  TEST  FOR  EACH  COMPONENT  * 

MAX  NO.  OF  MISSION  TESTS  * 

MIN  NO.  OF  MISSION  TESTS  * 

INDEX  NO.  OF  MAX  NO.  OF  MISSION  TESTS  * 

NO.  OF  MISSION  TESTS  TRANSFORMED  TO  REAL  * 

MAX  NO.  OF  MISSION  TESTS  FOR  OUTPUT  CONTROL 
FLAG  FOR  DETAILED  REPORT  OUTPUT  * 

SAME  AS  ABOVEC PARAMETER)  * 

UNRELIABILITY  ESTIMATES  FOR  EACH  COMPONENT  * 

LARGEST  QHATI  * 

UPPER  LIMIT  ON  SYSTEM  UNRELIABILITY  * 

INPUT  UNRELIABILIY  FOR  EACH  COMPONENT  * 

INDEX  * 

QUANTILE  * 

REPLICATIONS  HEADING  FORMAT  NUMBER 
SERIES  SYSTEM  RELIABILITY  ESTIMATE( CLOSED  FORM)  * 
TRUE  SERIES  SYSTEM  RELIABILITY 

TRUE  BRIDGE  SYSTEM  RELIABILITY  * 

SERIES  SYSTEM  RELIABILITY  ESTIMATE  * 

BRIDGE  SYSTEM  RELIABILITY  ESTIMATE  * 

PARAMETER  * 

SIGNIFICANCE  LEVEL  SELECTION  * 

SIGNIFICANCE  LEVEL  SELECTION  * 

PARAMETER  FOR  ROUTINE  SRND  * 

SUM  OF  THE  PRODUCT  OF  NI'S  AND  AI*S  * 

TEMPORARY  ARRAY  * 

TOTAL  NUMBER  OF  PROGRAM  ITERATIONS  * 

TEMPORARY  ARRAY  * 

TEMPORARY  ARRAY  * 

TEMPORARY  ARRAY  * 

BERNOULLI  TRIALS  ARRAY  (2-DIM)  * 

TEMPORARY  ARRAY  * 

TRUE  QUANTILE  * 

UNIFORM  RANDOM  DEVIATES  (2-DIM)  * 

TOTAL  NUMBER  OF  REPLICATIONS  WITH  ZERO  FAILURES  * 
NO.  OF  COMPNTS.  WITH  ZERO  FAILURES  PER  REPLICATION  * 


PARAMETER  (KK=10,MAXALF=2,NPRNT=0) 

PARAMETER  (MAXREP=1000,  MAXRUN=2000,  EPS=.  OOOOOl) 

REAL*4  UNIRV( 15 , 1000) ,TEMP( 1000) ,QI(KK) ,AI(KK) ,AHATI(KK) 

REAL*4  QHATI (KK) ,  NMAX,  NNMAX,  QHTMAX,  CHISQR(5,5),  ALFA(KAXALF) 
REAL*4  DF( 5 ) , AALFA( 5 ) , SUMNAI ,RSHAT(MAXALF,MAXREP) ,RS 
REAL*4  KEYl(MAXREP)  ,K£Y2(MAXREP)  ,KEY3( MAXREP 1  ,TRNSTR( MAXREP) 
REAL*4  DEGFR( MAXREP),  QHTUPR(MAXALF, MAXREP) ,CHISQ(MAXALF, MAXREP) 
REAL*4  QUPA1( MAXREP),  QUPA2( MAXREP) ,RHTSTR(MAXALF, MAXREP) 

REAL*4  DELTAR(HAXALF),  TRANSQ(MAXREP) ,TRANSR(MAXREP) ,DIFF(MAXREP) 
REAL*4  DELSTR(MAXALF) ,NTMIN,NIMAX,NIREAL(KK) 

REAL*4  RSKTBR(MAXALF, MAXREP) , DELB RG ( MAXALF ) ,KEY4(MAXREP) 

R£AL*4  TRANBR( MAXREP),  RSBRDG  ,MSTRQ 
REAL*4  ZFPP.EP 
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REALM  AVGN , SUC , STUD , PTEMP( 10) ,FDEG1 ,FDEG2 , P3 , S3 , S4 

INTEGER  SEED,  MULT,  SORT,  TRIALS C 15 , 1000) ,  BIGF,  FI(KK) ,  N(KK) 
INTEGER  NINDX,  QINDX,  ERROR,  REPS,  SELCTA,  SELCTK ,  TOTREP 
INTLwjuR  ClniS,  RF.PSWD,  SELCTB,  ALF,  FLAG,  LOOP,PRNT 
INTEGER  QUANTL(MAXALF) ,  TRUQNT(MAXALF) ,ZFAILS, FAILS, INC 
INTEGER  NTEST,FCT,HFI 

CitARACTER*8  LOOPSO(MAXREP) 

DATA  SEED/ 123457/,  MULT/1/,  INC/1/ 

DATA  AALFA/.  01,. 05,. 9,. 95,.  99/,  DF/1, 5 , 10,30,40/ 

DATA  ALFA/. 20,.  050/ 

DATA  SORT/O/ 

ASSIGN  8  TO  C1C15 
ASSIGN  9  TO  REPSHD 

*  CALL  COMPRS 
PRNT  =  NPRNT 

DO  12  1=1, KK 

AI(I)  =  9999. 

N(I)  =  99999999 
12  CONTINUE 

READ(03,*)K,MSTRQ 

DO  11  1=1, K 

READ( 03,*)  AI(I),N(I) 

11  CONTINUE 


IF(K.NE.5)  THEN 

WRITE( 1 , ' ( * 'WARNING:  BRIDGE  STRUCTURE  ' 1 , 
+ 1 1  ONLY  USES  THE  FIRST  5  COMPONENTS1’)') 

ELSE 
END  IF 


*** INITIALIZE  TIE  QHTUPR  ARRAY  OF  UNRELIABILITY  REPLICATIONS,  *** 

*  RSHAT  ARRAY  OF  ESTIMATE  SYSTEM  RELIABILITY  REPLICATIONS  * 

*  AND  RHTSTR  ARRAY  OF  EST.  SYST.  REL.  FOR  A  SERIES  SYST  WHEN  * 

***ALL  THE  COMPONENT  MISSION  TESTS  ARE  EQUAL  IN  NUMBER  *** 


DO  172  ALF=1 jMAXALF 

DO  173  REPS=1,MAXREP 

QHTUPR( ALF, REPS)  =  0. 

RSHAT( ALF, REPS)  =  0. 

RHTSTR( ALF, REPS)  =  0. 

RSHTBRC ALF, REPS)  =  0. 

LOOFSO(REPS)='  ******  ’ 

173  CONTINUE 

172  CONTINUE 

***SET  FLAG  TO  1  IF  ALL  COMPONENTS  HAVE  SAME  NO.  OF  MISSION  TESTS**** 
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FLAG=1 

DO  50  1=1, K  -1 

IF((N(I)  -  N( 1+1) ) . NE. 0)  THEN 
FLAG=0 

ELSE 
END  IF 
50  CONTINUE 

PRINT  *,  'FLAG  IS: ' ,  FLAG 

***MAIN  PROGRAM  OUTER  LOOP  START( EVERY  LOOP  IS  ONE  REPLICATION)*** 

ZFPREP  =  0. 

ZFAILS  =  0 
FAILS  =  0 
TOTREP  =  0 
LOOP  =  0 

10  IF(LOOP.  LT.MAXREP)  THEN 
LOOP  =  LOOP  +  1 
1FCT0TREP.  LT.  MAXRUN)  THEN 
TOTREP  =  TOTREP  +  1 

SELCTA  =  1 
SELCTB  =  2 

***FILL  ARRAY  KEY(REPS)  WITH  INTEGERS  1  TO  K  TO  BE  USED  AS  OUTPUT*** 
***0F  THE  SUBROUTINE  SHSORT  *** 

DO  95  REPS=1,  MAXREP 
KEYl(REPS)  =  REPS 
KEY2(REPS)  =  REPS 
KEYS(REPS)  =  REPS 
KEY4(REPS)  =  REPS 
95  CONTINUE 

***CALCULATE  NMAX  NOT  TO  PRINT  LONGER  THAN  THE  MAX  SAMPLE  SIZE*** 
***CALCULATE  THE  MAXIMUM  NO.  OF  TRIALS  AND  ITS  INDEX  NO.*** 

CALL  IMAX(N,K,NMAX,NINDX) 


***CALCULATE  THE  QI'S  FROM  THE  GIVEN  MASTER  Q  AND  THE  Al'S*** 

DO  115  1=1,  K 

QI( I)  =  MSTRQ  *  AI(I) 

115  CONTINUE 

S3=QI(3) 

S4=QI(4) 

DO  120  1=1,15 

DO  125  J=1 ,500 

UNIRV( I , J)  =  999. 

TRIALS( I , J)  =  99999 
125  CONTINUE 

120  CONTINUE 

***  DRAW  UNIFORM  (0,1)  RV’S  AND  CONVERT  TO  BERNOULLI  TRIALS*** 
DO  130  1=1,  K 
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CALL  SRNDCSEED,  TEMP,  N(I),  MULT,  SORT) 
DO  135  J=l,  N( I) 

UNIRV(I,J)  =  TEMP(J) 

IF  (UN1RV(I,J). LE.  1  -  QIC I))  THEN 
TRIALS(I, J)  =  0 

ELSE 

TRIALSCI.J)  =  1 
END  IF 

135  CONTINUE 
130  CONTINUE 


^CALCULATE  THE  NO.  OF  FAILURES  FOR  EACH  COMPONENT*** 


DO  150  1=1,  K 
FI( I)  =  0 
150  CONTINUE 
IONECT  =  0 

***CALCULATE  THE  F  SUB  I'S  AND  THE  GRAND  TOTAL  NO.  OF  FAILURES*** 
BIGF  =  0 
DO  155  1=1,  K 

DO  160  J=l,  N( I) 

FI( I)  =  FI( I)  +  TRIALSCI.J) 

160  CONTINUE 

IF  (FI( I)  .EQ.  0)  THEN 
ZFPREP=ZFPREP+1 
ELSE 
ENDIF 

BIGF  =  BIGF  +  FIC I) 

QHATICI)  =  REALCFICI))  /  NCI) 

155  CONTINUE 

***Change  for  Series-Parallel  System  with  2  out  of  3  component*** 


IF  (FI(4)  .EQ.  0)  THEN 
ZFPREP=ZFPREP  -  1 
ENDIF 

BIGF  =  BIGF  -  FI(4) 

FI(4)  =  0 
DO  161  1=1, NC4) 

HFI=0 

DO  162  J=l,2 

CALL  SRNDCSEED,  PTEMPCJ),  NC4),  MULT,  SORT) 
IF  CPTEMPCJ)  .GT.  1-S4)  THEN 
HFI  =  HFI  +  1 
ENDIF 
162  CONTINUE 

IF  (HFI  .EQ.  2)  THEN 
FI(4)  =  FI(4)  +  1 
ENDIF 

161  CONTINUE 

BIGF  =  BIGF  +  FI(4) 

IF  (FI(4)  .EQ.  0)  THEN 
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ELS™U  =  ZTmr  +  1 
ENDIF 

CFI(3)  .  EQ.  0)  THEN' 

■T™"- 1 

l!cI)==B5GF  ■  F«3> 

DO  163  1=1  K(3) 

HFI=0 

DO  164  J=l,3 

“t,(pS(jfV1!”s3))THEN3)’  MDlT'  S0RT> 

endijF*  =  WI  +  1 

164  CONTINUE 

IF  .  GE.  2)  THEN 

EKDIF<3)  =  FI(3)  +  1 
163  CONTINUE 

BIGF  =  BIGF  +  FI(3) 

IF  t'llill  <EQ-  0)  TH£K 

vrCrZfPREP  =  ZFPREP  +  1 
tLbt 

ENDIF 

DO  19  1=1 ,K 
QK I)  =  MSTRQ  *  Aim 
QHATI(I)  =  REAL(FKI))  /  N(l) 

19  CONTINUE 

QIC*)  =  QI(4)**2 
P3  =  1. -QI (3) 

DO  156  1=1, K 

156  CONTINUEI(I)  *  *®*  0)  IONECT=IONECT+l 

***CASE  WHERE  NO  COMPONENTS  HAVE  ANY  FAILURES*** 

IF(BIGF. EQ.  0)  THEN 

LOOPSO(LOOP)='  *ZERO*  1 
ZFAILS  =  ZFAILS  +  1 
AVGN=0.  0 
DO  200  1=1 ,K 

200  CONTIMN=aVGN+MAL(N'(I» 

AVGN=A VGN/REALf  K ) 

DO  205  ALF=1,  MAXALF 

mFiKj(?f^p,=  MA<r-»*u.  /iVGll) 

ELSE  E"TSrE<AIJ.“r-*P)=ALFS'  uF)**a./N(l)) 
j,  END  IF 

PRINT  *,LOOP’  .loop,  1 RSIIAT1  ,RSHAT(ALF,LOOP) 


205  CONTINUE 

DEGFR(LOOP)  =  2. 

GO  TO  10 

ELSE 

FAILS  =  FAILS  +  1 
END  IF 

***COUNTS  NUMBER  OF  COMPONENTS  THAT  FAIL  RECORDS  NO.  COMPT  TESTS*** 
FCT=0 

DO  202  1=1, K 

IF  (FI(I)  .NE.  0)  THEN 
FCT=FCT+1 
NTEST=N( I) 

ENDIF 

202  CONTINUE 

***FIND  THE  MAX  OF  THE  INDIVIDUAL  COMPONENT  UNRELIABILITIES*** 

CALL  RMAX(QHATI,  K,  QHTMAX,  QINDX) 

***CALCULATE  THE  AHAT  SUB  I'S  (WEIGHT  ESTIMATES)***  . 

***IF  COMPONENT  HAS  NO  FAILURES  AHAT  SUB  I  IS  ZERO*** 


SUMNAI  =  0. 

DO  165  1=1,  K 

AHATI(I)  =  QHATI(I)  /  QHTMAX 
SUMNAI  =  SUMNAI  +  NCI)  *  AHATI(I) 

165  CONTINUE 

***1  COMPONENT  FAILURE  SERIES  SYSTEM*** 

IF  (FCT  .EQ.  1)  THEN 

LOOPSO(LOOP)='  *ONECF*  ' 

DO  305  ALF=1 ,MAXALF 
SUC=REAL(NTEST-BIGF) 

FDEG1=2.  *(REAL(BIGF)+1.  ) 

FDEG2=2. *SUC 

STUD=FIN( 1.  -ALFA(ALF) ,FDEG1,FDEG2) 
RSHAT(ALF,L00P)=SUC/(SUC+(REAL(BIGF)+1.  )*STUD) 

*  PRINT  *,'SUC=I,SUC,'FAIL=’,BIGF,'NTEST=’,NTEST 

*  PRINT  *,’FIN='  STUD 

*  PRINT  *, 'ALFA-  ,ALFA(ALF) , 1 RSHAT=* , RSHAT( ALF , LOOP) 

IF  (FLAG  .EQ. 1)  THEN 

RHTSTR( ALF , LOOP)=RSHAT( ALF , LOOP) 

ELSE 

ENDIF 

305  CONTINUE 
ENDIF 

***CALCULATE  1  REPLICATION  OF  UPPR  ALFA  C. L.  ON  SYSTEM  RELIABILITY*** 
DEGFR(LOOP)  =  2  *  (1  +  BIGF) 

DO  170  ALF=1,  MAXALF 

CALL  MDCHK1  -  ALFA( ALF )  ,DEGFR( LOOP) , CHI SQ( ALF, LOOP) ,  ERROR) 
QHTUPR( ALF, LOOP)  =  CHISQ(ALF,LOOP)  /  (2  *  SUMNAI) 
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IF(FLAG.  EQ. 1)  THEN 

RHTSTR( ALF , LOOP )  =  1  -( CHI SQ(ALF, LOOP)  /  REAL(2*N( 1) ) ) 

ELSE 
END  IF 

***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  COMPNTS.  IN  SERIES*** 
IF  (FCT  .NE.  1)  THEN 

CALL  RHTSRSC QHTUPRC ALF, LOOP),  AHATI ,K,  RSHATC ALF, LOOP ) ) 

END  IF 

***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  BRIDGE  STRUCTURE*** 

IF  (IONECT  .NE.  1)  THEN 

CALL  RHTBRGC  QHTUPRC  ALF , LOOP ) , AHATI , K , RSHTBRC ALF , LOOP ) ) 
ENDIF 

170  CONTINUE 

***EXACTLY  1  COMPONENT  FAILS  AND  REDUNDANT  COMPONENT*** 

IF  ((IONECT  .EQ.  1)  .AND.  (K  .EQ.  5))  THEN 
DO  207  1=1,  K 

NIREAL(I)  =  REAL(N(I)) 

207  CONTINUE 

CALL  USMNMX( NIREAL , K , INC , NIMIN , NIMAX ) 

DO  206  ALF=1,MAXALF 

RSHTBR( ALF, LOOP )=ALFA(ALF)**( 1. /NIMIN) 

206  CONTINUE 
ENDIF 

***THIS  ELSE  AND  ENDIF  ARE  FOR  THE  TEST  AGAINST  MAXRUN*** 

ELSE 

WRITE(  1 , '  (  "  "  J"  PROGRAM  EXCEEDED  THE  MAX  NO.  OF  RUNS '  '  , 
+' '  ALLOWED  OF:  "  ,I6)f)  TOTREP 
GOTO  9999 

END  IF 
GOTO  10 
END  IF 

C  WRITE( 2,' (" UNSORTED  RSHAT  1  IS:  "  ,/10(F8.  5)) '  ) 

C  +( RSHAT( 1. LOOP),  L00P=1,  MAXREP) 

C  WRITE(2,f(  "UNSORTED  RSHAT  2  IS:  "  ,/10(F8.  5)) '  ) 

C  +( RSHATC 2, LOOP),  L00P=1,  MAXREP) 

C  IFCFLAG.EQ. 1)  THEN 

C  WRITEC  2 , ' (  "  UNSORTED  RHTSTR  1 

C  +(RHTSTR( 1 , LOOP) .  L00P=1,  MAXREP) 

C  WRITEC  2 , ' (  UNSORTED  RHTSTR  2 

C  +(RHTSTR(2,L00P) ,  L00P=1,  MAXREP) 

C  ELSE 

C  END  IF 

C  IFCK.EQ.5)  THEN 

C  WRITEC 2 , ’ (  "  UNSORTED  RSHTBR  1 

C  +( RSHTBRC 1, LOOP).  L00P=1,  MAXREP) 

C  WRITEC 2 , ' ( ' ' UNSORTED  RSHTBR  2 


IS: ' ' ,/10(F8.  5)) ' ) 
IS: ' ' ,/10(F8.  5))'  ) 

IS: ’ ' ,/10(F8.  5))  1  ) 
IS: ' ' ,/10(F8.5))') 
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C  +(RSHTBR(2,L00P) ,  L00P=1,  MAXREP) 

C  ELSE 

C  END  IF 

C  WRITE  (2, '("ZERO  AND  ONE  FAILURE  REPS:  ",/10(A8))') 

C  +  (LOOPSO(LOOP),LOOP=l, MAXREP) 

***SORT  THE  ARRAYS  OF  SYSTEM  UNRELIABILITIES( 1  FOR  EACH  CONF.  LEVEL)*** 


DO  700  ALF=1,  MAXALF 

DO  800  REPS=1 ,  MAXREP 

TRANSQ(REPS)  =  QHTUPR( ALF, REPS) 
TRANSR(REPS)  =  RSHAT(ALF,REPS) 
TRNSTR(REPS)  =  RHTSTRC ALF, REPS) 
TRANBR(REPS)  =  RSHTBR( ALF ,REPS) 
800  CONTINUE 

CALL  SHS0RT(TRANSQ,KEY1, MAXREP) 

CALL  SHS0RT(TRANSR,KEY2, MAXREP) 

CALL  SHSORT( TRNSTR , KEY3 , MAXREP ) 

CALL  SHS0RT(TRANBR,KEY4, MAXREP) 

DO  900  REPS=1,  MAXREP 

QHTUPRC ALF, REPS)  =  TRANSQ(REPS) 
RSHATC ALF, REPS)  =  TRANSR(REPS) 
RHTSTRC ALF, REPS)  =  TRNSTR(REPS) 
RSHTBR( ALF, REPS)  =  TRANBR(REPS) 
900  CONTINUE 

700  CONTINUE 

***PRINT  OUTPUT  REPORT  HEADINGS*** 


WRITE( 1,6666) 

WRITE( 1,6667)  MAXREP 
WRITEC 1,6668)  K 
WRITE( 1,6669) 

IF(K.  EQ.  5)  THEN 

WRITE( 1,6699) 

ELSE 
END  IF 

WRITEC 1,6670)  MSTRQ 
WRITEC 1,6671) 

WRITEC 1,C 1C 15) 

WRITEC 1,3334)  AI 
WRITEC 1,0007) 

WRITEC 1.C1C15) 

WRITEC 1,3334)  QI 
WRITEC 1,0005) 

WRITEC 1,C 1C 15) 

WRITEC 1,3335)  N 
WRITEC 1,6674) 

***COMPUTE  THE  VALUE  RS  OF  THE  TRUE  SYSTEM  REL.  FNCTN. (SERIES  SYSTEM)*** 
***  AND  FOR  THE  5 -COMPONENT  BRIDGE  STRUCTURE*** 


CALL  RSRS(QI,K,RS) 

WRITEC  1,'("  ,////"  THE  TRUE  SERIES  SYSTEM  ", 
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+’ 'RELIABILITY  VALUE  IS:  "  ,T51,F8.  5) ' )  RS 
CALL  RBRIDGCQI ,K, RSBRDG) 

IF(K. EQ. 5)  THEN 

WRITE ( 1 , 1 (  "  "  ,//// ' 'THE  TRUE  BRIDGE  STRUCTURE  ' ' , 

+  ' 'RELIABILITY  VALUE  IS:  "  ,T51,FS. 5) ’ )  RSBRDG 
ELSE 
END  IF 

WRITE( 1,6675) 

***COMPUTE  THE  DIFFERENCE  'DELTAR'  BTWN.  RS  AND  RSHAT  OF  THE  THEO*** 
***RETICAL  QUANTILE  GIVEN  BY  ALFA(MUST  USE  SORTED  RSHAT  ARRAY)*** 

IF(FLAG.EQ.  1)  THEN 
WRITE( 1,5755) 

ELSE 
END  IF 

DO  450  ALF=1 ,  MAXALF 

QUANTL(ALF)  =  MAXREP  *  (1  -  ALFA(ALF)) 

DELTAR(ALF)  =  RS  -  RSHAT( ALF, QUANTL( ALF) ) 

DELBRG(ALF)  =  RSBRDG  -  RSHTBR( ALF , QUANTL( ALF ) ) 

IFCFLAG.  EQ.  1)  THEN 

DELSTR(ALF)  =  RS  -  RHTSTR( ALF , QUANTL( ALF) ) 

WRITEC 1,5555)  MAXREP,  ALFA(ALF) ,  RE AL( QUANTL( ALF ) ) 
WRITE ( 1,5656)  RHTSTR ( ALF , QUANTL( ALF ) ) 

WRITE( 1,5657)  DELSTR(ALF) 

ELSE 
END  IF 

IFCK.EQ.  5)  THEN 

DELBRG(ALF)  =  RSBRDG  -  RSHTBRC  ALF , QUANTLC  ALF ) ) 

WRITEC 1,5555)  MAXREP,  ALFACALF),  REALC QUANTLC ALF ) ) 
WRITEC 1,5666)  RSHTBRC ALF, QUANTLC ALF)) 

'  WRITEC 1,5667)  DELB RGC ALF) 

ELSE 
END  IF 

WRITEC 1,5555)  MAXREP,  ALFACALF),  REALC  QUANTLC  ALF ) ) 

WRITEC 1,5556)  RSHATC ALF, QUANTLC ALF) ) 

WRITEC 1,5557)  DELTAR(ALF) 

450  CONTINUE 

PRINT*,  ’ QUANTLC 1)  IS:’,  QUANTLC 1) 

PRINT*,  'QUANTLC 2)  IS:',  QUANTLC 2) 

***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 

***  ********  RSHAT  *******  *** 

WRITEC 1,6676) 

DO  400  ALF=1 ,MAXALF 
TRUQNTC ALF)  =  0 

DO  500  REPS=1 ,  MAXREP 

DIFFCREPS)  =  RS  -  RSHATC ALF, REPS) 

500  CONTINUE 

DO  600  REPS=1,  MAXREP 

IF(ABSCDIFF(REPS)). LE. EPS)  THEN 
TRUQNTC ALF)  =  REPS 

WRITEC 1 , ' (  "  "  , /  " TRUE  CONFIDENCE  LIMIT  IS:  "  , 
+  F8. 4)') 

+  C TRUQNTC ALF)  /  REALC MAXREP))  *  100. 
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GO  TO  620 

ELSEIF(DIFF(REPS).  LT.  0.  )  THEN 
TRUQNT(ALF)  =  REPS 
GO  TO  610 

ELSE 
END  IF 
CONTINUE 

IFCTRUQNT(ALF) . EQ. 0.  )  THEN 
WRITE( 1,4443)  ALFA(ALF) 

WRITE(1,'("  "  ,  /  "  THE  SMALLEST", 

P  "  DIFFERENCE  BETWEEN  RS  AND  RSHAT  IS: ' ' ,F10. 5)')  DIFF( 

P  MAXREP) 

ELSEIF(TRUQNT(ALF) . EQ. 1. )  THEN 
WRITE (1,4442)  ALFA(ALF) 

WRITE(1,’("  ",/"  ALL  RSHAT"  , 

1  "ARE  GREATER  THAN  RS")’) 

ELSEIF(ABS(DIFF(TRUQNT(ALF))).  LE. ABS(DIFF(TRUQNT(ALF)  -  1))) 
1  THEN 

WRITE( 1,4444)  ALFA(ALF) , 

1  (TRUQNT(ALF)  /  RE AL( MAXREP))  *  100. 

WRITE ( 1 , 4445 )  RSHAT( ALF , TRUQNT( ALF ) ) 

WRITE( 1,4446) 

ELSE 

WRITE( 1,4444)  ALFA(ALF) , 

P  (  ( TRUQNT ( ALF ) - 1 )  /  REAL( MAXREP)  )  *  100. 

WRITE ( 1 , 4445 )  RSHAT( ALF ,TRUQNT( ALF) - 1 ) 

WRITE (1,4447) 

END  IF 
CONTINUE 


***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 
***  ********  RSHTBR  (BRIDGE)  *******  *** 


IF(K.  EQ. 5)  THEN 
DO  401  ALF=1 .MAXALF 
TRUQNT(ALF)  =  0 

DO  501  REPS=1 ,  MAXREP 

DIFF(REPS)  =  RSBRDG  -  RSHTBR( ALF, REPS) 

CONTINUE 

DO  601  REPS=1 ,  MAXREP 

IF(ABS(DIFF(REPS)). LE. EPS)  THEN 
TRUQNT(ALF)  =  REPS 

WRITE( 1 , ' (  "  "  , /  "  TRUE  CONFIDENCE  LIMIT  IS:  "  , 
P  F8.4)') 

P  (TRUQNT(ALF)  /  RE AL( MAXREP))  *  100. 

GO  TO  621 

ELSEIF(DIFF(REPS).  LT. 0. )  THEN 
TRUQNT(ALF)  =  REPS 
GO  TO  611 

ELSE 
END  IF 
CONTINUE 

IF(TRUQNT(ALF). EQ. 0. )  THEN 
WRITE( 1,4443)  ALFA(ALF) 


WRITE( 1, 1 ( 


'THE  SMALLEST' 


6S 


+  1 '  DIFFERENCE  BETWEEN  RSBRDG  AND  RSHTBR  IS: ' ' , 

+  F10. 5) ’ )  DIFF(MAXREP) 

ELSEIF(TRUQNT(ALF).EQ.  1.  )  THEN 
WR ITE ( 1 , 4442 )  ALFA ( ALF ) 

WRITE(  1, 1  ( 1 1  ' '  ,/’ 'ALL  RSHTBR”  , 

+  ' '  ARE  GREATER  THAN  RSBRDG' ’ ) ' ) 

ELSEIF(ABS(DIFF(TRUQNT(ALF))).  LE.  ABS(DIFF(TRUQNT( ALF)  -  1))) 
+  THEN 

WRITE( 1,4444)  ALFA(ALF) , 

+  (TRUQNT(ALF)  /  REAL(MAXREP) )  *  100. 

WRITE( 1 , 4449 )  RSHTBR( ALF , TRUQNT( ALF) ) 

WRITEC 1,4446) 

ELSE 

WRITE (1 , 4444)  ALFA( ALF) , 

+  ((TRUQNT(ALF)-l)  /  REAL(MAXREP))  *  100. 

WRITEC 1 , 4449 )  RSHTBR( ALF , TRUQNT( ALF) - 1 ) 

WRITEC 1,4447) 

621  END  IF 

401  CONTINUE 
ELSE 
END  IF 


***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 
***  ********  RHTSTR  ********  *** 


IF(FLAG. EQ. 1)  THEN 
DO  4400  ALF=1,MAXALF 
TRUQNT(ALF)  =  0 

DO  5500  REPS=1,  MAXREP 

DIFF(REPS)  =  RS  -  RHTSTR( ALF, REPS) 

5500  CONTINUE 

DO  6600  REPS=1 ,  MAXREP 

IF(ABS(DIFF(REPS)).LE.  EPS)  THEN 
TRUQNT(ALF)  =  REPS 

WRITEC  1 , '  (  ”  ”  ,  /  ” TRUE  CONFIDENCE  LIMIT  IS:  ”  , 

+  F8.  4)  '  ) 

+  (TRUQNT(ALF)  /  REAL( MAXREP) )  *  100. 

GO  TO  6620 

ELSEIF(DIFFCREPS).  LT.  0.  )  THEN 
TRUQNT(ALF)  =  REPS 
GO  TO  6610 

ELSE 
END  IF 

6600  CONTINUE 

6610  IF(TRUQNTCALF).  EQ.  0.  )  THEN 
WRITEC 1,4443)  ALFA(ALF) 

WRITEC  1 , '  (  '  '  ”,/' 'THE  SMALLEST' '  , 

+  ' '  DIFFERENCE  BETWEEN  RS  AND  RHTSTR  IS:  ”  , 

+  F9.  5) ' )  DIFFCMAXREP) 

ELSEIF(TRUQNTCALF). EQ.  1.  )  THEN 
WRITEC 1,4442)  ALFACALF) 

WRITEC  1 , '  (  "  ALL  RHTSTR”, 

+  "ARE  GREATER  THAN  RS”  ) '  ) 

ELSEIFCABSCDIFFCTRUQNTCALF))).LE.ABSCDIFFCTRUQNTCALF)  -  1))) 
+  THEN 
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WRITE ( 1,4444)  ALF A( ALF) , 

+  (TRUQNT(ALF)  /  REAL(MAXREP) )  *  100. 

WRITEC 1 , 4448)  RHTSTR( ALF ,TRUQNT( ALF)  ) 

WRITE( 1,4446) 

ELSE 

WRITE( 1,4444)  ALFA(ALF) , 

+  ( ( TRUQNT ( ALF ) - 1 )  /  REAL( MAXREP ) )  *  100. 

WRITEC 1,4448)  RHTSTRCALF,TRUQNT(ALF)-1) 

WRITEC 1,4447) 

6620  END  IF 

4400  CONTINUE 
ELSE 
END  IF 

***PRINT  THE  ARRAYS  PERTINENT  TO  THE  OUPUT  OF  EACH  REPLICATION*** 

IFCPRNT.EQ.  1)  THEN 
1  =  1 

185  WRITEC 1,REPSHD)  ALFA(SELCTA) ,  ALFA(SELCTA) , 

+ALFA(SELCTB) ,ALFA(SELCTB) , ALFACSELCTA) ,ALFAC SELCTA) ,ALFACSELCTB) , 
+ALFACSELGTB) 

175  IFCI.GE.  CMAXREP  +  1))  THEN 
GOTO  180 

ELSE 

IFC  Cl-  EQ.  71).  OR.  C  I.  EQ.  211).  OR.  Cl.  EQ.  351).  OR.  (I.  EQ.  491).  OR. 

+  C I-  EQ.  631).  OR.  ( I.  EQ.  771).  OR.  Cl.  EQ.  911).  OR.  C I-  EQ.  1051)  )  THEN 
I  =  I  +  70 
WRITEC  1,'C  "  +  ")') 

GOTO  185 

ELSE 

WRITEC1.3336)  I,  INTC DEGFRC I ) ) ,  CHISQ(1,I),  QHTUPR(1,I), 

+  CHISQC2 , 1) ,  QHTUPRC 2,1) 

END  IF 

IFC I  +  70.  LE. MAXREP)  THEN 

WRITEC 1 ,3337)  1+70 , INTC DEGFRC 1+70) ) , CHISQC 1 , 1+70) , 

+  QHTUPRC 1 , 1+70) , CHISQC  2 , 1+70) , QHTUPRC 2 , 1+70) 

ELSE 
END  IF 
1  =  1  +  1 
GOTO  175 
180  END  IF 
ELSE 
ENDIF 

9999  WRITEC  1,' ("THE  TOTAL  NO  OF  REPS  WAS:  ",I8)’)  TOTREP 

WRITEC  1,'C  "THE  TOTAL  NO  OF  EFFECTIVE  REPS  WAS:", 18)’)  LOOP 
WRITEC 1, ' ( ' 'THE  TOTAL  NO  OF  NO  FAILURE  RUNS  WAS: ' ' , 18) ' )  ZFAILS 
WRITEC  1,'(  "AVERAGE  NO.  OF  COMPONENTS  PER  REPLICATION  WITH  ", 
+"N0  FAILURES:  "  ,F5.  2)’)  ZFPREP  /  MAXREP 

WRITEC  1,'(  "THE  TOTAL  NO  OF  RUNS  WITH  FAILURES  WAS:",  18)’)  FAILS 
0008  FORMAT  (/  3X,'C  l',5X,'C  2', 

+5X, ' C  3',5X,'C  4',5X,'C  5',5X,'C  6',5X,'C  7',5X, 

+'C  8',5X,'C  9 ' ,5X, ' C  10',4X,'C  ll' ,4X, 

+'C  12',4X,'C  13',4X,'C  14 5 , 4X , ' C  15’) 

0009  F0RMATC/1X, 'REP  NO' ,2X, 'DF' , IX, 'CHISQR( ' ,F4.  3, ' ) ' , IX, 

+' QHTUPRC ' ,F4.  3 , ' ) ' , IX, ' CHISQR( ' ,F4. 3 , ' ) ' , IX, ' QHTUPRC ' ,F4.  3 , ' ) ' , 
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+2X, 'REP  NO’ , 2X , ' DF ' ,  IX .  ’ CHISQR( * ,F4.  3  ’ )' ,1X. 

+’QHTUPR( ' ,F4.  3, ' ) ’ , IX,  CHISQR( ’ .F4.  3,  ) '  IX, rQHTUPR( ’ ,F4.  3, ’ ) ’/) 
0001  FORMAT  (///'UNIFORM  RANDOM  DEVIATES  ARE: ') 

0002  FORMAT  (///'BERNOULLI  TRIALS  ARE:’) 

0003  FORMAT  (///’TOTAL  NO.  OF  FAILURES  FOR  EACH  COMPONENT:  ') 

0004  FORMAT  (///'ESTIMATED  UNRELIABILITY  FOR  EACH  COMPONENT: ’) 

0005  FORMAT  (///’TOTAL  NUMBER  OF  MISSION  TESTS: ’) 

0006  FORMAT  (///’ESTIMATED  WEIGHTS  FOR  EACH  COMPONENT:  ’) 

0007  FORMAT  (///’Q  I  FOR  EACH  COMPONENT:  ’) 

1111  FORMAT  (15F8. 5) 


2222  FORMAT  (/IX, 15(14, 4X)) 

3333  FORMAT  (/1X,15(I4,4X)) 

3334  FORMAT  (/15F8.5) 

3335  FORMAT  (/IX, 15(14, 4X)) 

3336  FORMAT  (T3 .14, T9 , 13 ,T13 ,F11,  5 ,T27 ,F8.  5 ,T39 ,F11.  5 ,T53 ,F8.  5) 

3337  FORMAT  (’  +  ' ,T67.I4,T73,I3,T77,FU.  5?T91,F8.  5,T103,F11.  5,T117,F8.  5) 

4442  FORMAT  ('  ’,///fTHE  RESULTING  (1  -  (,F4. 3,’)  CONFIDENCE  ', 

+' LIMIT  IS: ’ ,T50. 1  00.000  ’) 

4443  FORMAT  <’  ',/// ‘THE  RESULTING  (1  -  ' ,F4. 3,')  CONFIDENCE  ', 


+' LIMIT  IS: 
4444  FORMAT  (' 


IS: ' ,T50. ' 100. 0000’ ) 

('  ’ ,///(THE  RESULTING- (1  - 


+' LIMIT  IS:  ' ,T50,F8.  4) 


,F4.  3,  )  CONFIDENCE  ', 
’ ,F4.  3, ’ )  CONFIDENCE 


4445  FORMAT  ('  ',/'THE  RSHAT  VALUE  CLOSEST  TO  RS  IS:  ’,T51,F8.5) 

4446  FORMAT  ('  ',/’ (FIRST  NEGATIVE  DIFFERENCE)' ) 

4447  FORMAT  (’  ',/' (ELEMENT  PRECEEDING  FIRST  NEGATIVE  DIFFERENCE)’) 

4448  FORMAT  (’  ',/'THE  RHTSTR  VALUE  CLOSEST  TO  RS  IS:  ’.T51,F8.5) 

4449  FORMAT  ('  ’,/’THE  RSHTBR  VALUE  CLOSEST  TO  RSBRDG  IS:  ’,T5l,F8.5) 

5555  FORMAT  (’  ’.///’THE  ’ , 14, ’ ( 1-’ ,F4. 3, 1 )  QUANTILE  IS: ’ ,T49 ,F8.  3) 

5556  FORMAT  (’  ’,/’TKE  VALUE  OF  RSHAT  FOR  THAT  QUANTILE  IS:  ’,T51,F8.5) 

5557  FORMAT  ('  ’,/’THE  DIFFERENCE^  -  RSHAT)  IS:  ’  ,T51,F8.  5) 

5656  FORMAT  (’  ’  ,  /  ’ THE  VALUE  OF  RHTSTR  FOR  THAT  QUANTILE  IS: ’ ,T51 ,F8.  5) 

5666  FORMAT  (’  ’,/’THE  VALUE  OF  RSHTBR  FOR  THAT  QUANTILE  IS: ’,T51,F8.5) 

5657  FORMAT  (’  ’,/’THE  DIFFERENCES  -  RHTSTR)  IS:  ’  ,T51,F8.  5) 

5667  FORMAT  (’  ’ ,/’THE  DIFFERENCE(RS  -  RSHTBR)  IS: ’ ,T51 ,F8. 5) 

5755  FORMAT  (’  ’,///’ SINCE  THE  NO.  OF  MISSION  TESTS  IS  THE  SAME  FOR’, 

+’  ALL  COMPONENTS  THE  CLOSED  FORM  SERIES  SYSTEM  RELIABILITY’  ’ , 

+’  ’ ’RHTSTR’ ’  IS  COMPUTED’ ) 

6666  FORMAT  (’+’ , ’ *********************************************** 1 , 

+ ' ***********  puN  INPUT  SETTINGS  ******************************** 

4. 1  **  *  *  * * * * * * * *  * * rr  * ;V * -.V '  J 

6667  FORMAT  (’  ' ,//' NUMBER  OF  REPLICATIONS: ’ ,T50, 14) 

6668  FORMAT  ('  ',// 'NUMBER  OF  COMPONENTS: ’ ,T50, 14) 

6669  FORMAT  ('  //'SYSTEM  RELIABILITY  FUNCTION: ' ,T50, ' SERIES' ) 

6699  FORMAT  (’  //’SYSTEM  RELIABILITY  FUNCTION: ’ ,T50, ’ BRIDGE’ ) 

6670  FORMAT  (’  //'MASTER  UNRELIABILITY  USED:  ’,T50,F8.5) 

6671  FORMAT  (’  ',//' INPUT  WEIGHTS(A  SUB  I "  S):  ’ ) 

6674  FORMAT  ('+' ,///’***********************************************’ } 
+’**R  UN  RESULT  Si{*************************************** ’ 

+  ’  ************** 1 ) 

6675  FORMAT  (’+’,///’ ******************************************* ***** 1 
+’  ESTIMATE  ERRORS  *********************************************’ 

+  1 ************** 1 ) 

6676  FORMAT  (’+* , // / 1  *********************************************** 1 j 
+’  TRUE  CONFIDENCE  LIMITS  ***************************************' 
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APPENDIX  F.  FORTRAN  CODE  FOR  THE  PREFERRED  LOWER 
CONFIDENCE  LIMIT  FOR  SYSTEM  RELIABILITY  (PARALLEL 

SYSTEM) 


PROGRAM  ZFYSCN 

* 

*  TITLE:  BINOMIAL  INTERVAL  ESTIMATION  PROCEDURE 

*  ZERO  FAILURES  ALLOWED;  NO  SCALING 

*  AUTHOR:  E.  F.  BELLINI,  LT,  USN 

*  MODIFIED  BY:  LT  VALERIE  A.  COVINGTON.USN  (MAR  90) 

*  DATE:  NOV  89 


*  THIS  PROGRAM  COMPUTES  THE  TRUE  CONFIDENCE  LEVEL  FOR  THE  ESTIMATE  * 

*  RELIABILITY  OF  A  SERIES  AND  BRIDGE  SYSTEM  GIVEN  THE  RELIABILITY  * 

*  OF  THEIR  COMPONENTS  * 


*  IN  ITS  PRESENT  CONFIGURATION  THIS  PROGRAM  IS  SET  UP  TO  RUN  12  * 

*  TIMES  EACH  TIME  PRODUCING  1000  REPLICATIONS  USING  A  DIFFERENT 

*  SET  OF  INPUT  DATA.  RUN  THE  PROGRAM  FROM  CMS  BY  TYPING  'B1  EXEC'.* 

*  THE  REXX  EXEC  PROGRAM  * 

*  ' R1 1  CALLS  THE  I»*  '  FILES  TO  BE  READ  AND  NAMES  THE  12  OUTPUT  * 

*  FILES  RESULTING  TiE  12  CONSECUTIVE  RUNS.  BY  EDITING  THE  * 

*  INDEX  COUNTERS  I,  H  OF  THE  ’Bl*  EXEC  ONE  CAN  RUN  ANY  USER-  * 

*  SPECIFIC  RUN  FROM  JUST  ONE  RUN  TO  ALL  12.  * 

*  * 

*  VARIABLES  USED  * 

j.  ~ 


i: 

j. 


* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


AHATI  : 
AI 

ALFA  : 
BIGF  : 
CHISQ  : 
C1C15  : 

DEGFR  : 
DELBRG  : 
DELSTR  : 
DELTAR  : 
DIFF  : 
EPS 

ERROR  : 
FAILS  : 
FI 

FLAG  : 
INC  : 

KEY1  : 
KEY2  : 
KEY3  : 
KEY4  : 
KK  : 

LOOP  : 
MAXALF  : 


WEIGHT  ESTIMATES  FOR  EACH  COMPONENT  * 
INPUT  WEIGHTS  FOR  EACH  COMPONENT  * 
LEVELS  OF  SIGNIFICANCE  * 
TOTAL  NO.  OF  FAILURES  FOR  EACH  REPLICATION  * 
CHI-SQUARE  RANDOM  VARIABLE  VALUE  * 
FORMAT  LABEL  * 
DEGREES  OF  FREEDOM  * 
DIFFERENCE  FOR  BRIDGE  SYSTEM  * 
DIFFERENCE  FOR  SERIES  SYSTEM-  CLOSED  FORM  * 
DIFFERENCE  FOR  SERIES  SYSTEM  * 
DIFFERENCE  (TRUE  REL.  -  ESTIMATED  REL.  )  * 
SMALL  QUANTITY( CONSTANT)  * 
PARAMETER  FOR  IMSL  ROUTINE  * 
COUNTS  NO.  OF  REPLICATIONS  WITH  AT  LST.  1  FAILURE  * 
NO.  OF  FAILURES  FOR  EACH  COMPONENT  ALL  MISSION  TST)* 


1  IF  ALL  COMP.  HAVE  SAME  NO.  OF  MISSION  TESTS  * 
INCREMENT  STEP  SIZE  FOR  ROUTINE  USMNMX  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSOP.T  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 


ARRAY  SIZING  PARAMETER  FOR  THE  MAX  NO  OF  COMPONENTS* 


COUNTS  NO.  OF  REPLICATION  PERFORMED 


MAX  NO.  OF  SIGNIFICANT  LEVELS  DESIRED( ARRAY  SIZING)* 
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* 

MAXREP 

MAX  NO.  OF  REPLICATIONS 

Vr 

* 

MAXRUN 

MAX  NO.  OF  PROGRAM  ITERATIONS  ALLOWED 

* 

* 

MSTRQ 

MASTER  UNRELIABILITY (USED  WITH  Al’S  TO  CALC.  Ql'S) 

* 

* 

MULT 

MULTIPLIER  FOR  RANDOM  NO.  GENERATOR  SRND 

* 

* 

N 

NO.  OF  MISSION  TEST  FOR  EACH  COMPONENT  * 

* 

NIMAX 

MAX  NO.  OF  MISSION  TESTS 

* 

* 

NIMIM 

MIN  NO.  OF  MISSION  TESTS 

* 

* 

NINDX 

INDEX  NO.  OF  MAX  NO.  OF  MISSION  TESTS 

* 

* 

NIREAL 

NO.  OF  MISSION  TESTS  TRANSFORMED  TO  REAL 

* 

* 

NMAX 

MAX  NO.  OF  MISSION  TESTS  FOR  OUTPUT  CONTROL 

* 

* 

NPRNT 

FLAG  FOR  DETAILED  REPORT  OUTPUT 

* 

* 

PRNT 

SAME  AS  ABOVE (PARAMETER) 

* 

* 

QKATI 

UNRELIABILITY  ESTIMATES  FOR  EACH  COMPONENT 

* 

* 

QHTMAX 

LARGEST  QHATI 

* 

* 

QHTUPR 

UPPER  LIMIT  ON  SYSTEM  UNRELIABILITY 

* 

* 

QI 

INPUT  UNRELIABILIY  FOR  EACH  COMPONENT 

* 

* 

QINDX 

INDEX 

* 

* 

QUANTL 

QUANTILE 

* 

* 

REPSHD 

REPLICATIONS  HEADING  FORMAT  NUMBER 

* 

* 

RHTSTR 

SERIES  SYSTEM  RELIABILITY  ESTIMATE( CLOSED  FORM) 

* 

* 

RS 

TRUE  SERIES  SYSTEM  RELIABILITY 

* 

* 

RSBRDG 

TRUE  BRIDGE  SYSTEM  RELIABILITY 

* 

* 

RSHAT 

SERIES  SYSTEM  RELIABILITY  ESTIMATE 

* 

* 

RSHTBR 

BRIDGE  SYSTEM  RELIABILITY  ESTIMATE 

* 

* 

SEED 

PARAMETER 

* 

* 

SELCTA 

SIGNIFICANCE  LEVEL  SELECTION 

* 

* 

SELCTB 

SIGNIFICANCE  LEVEL  SELECTION 

* 

* 

SORT 

PARAMETER  FOR  ROUTINE  SRND 

* 

* 

SUMNAI 

SUM  OF  THE  PRODUCT  OF  NI'S  AND  Al'S 

* 

* 

TEMP 

TEMPORARY  ARRAY 

* 

* 

TOTREP 

TOTAL  NUMBER  OF  PROGRAM  ITERATIONS 

* 

* 

TRANBR 

TEMPORARY  ARRAY 

* 

* 

TRANSQ 

TEMPORARY  ARRAY 

* 

* 

TRANSR 

TEMPORARY  ARRAY 

* 

* 

TRIALS 

BERNOULLI  TRIALS  ARRAY  (2-DIM) 

* 

* 

TRNSTR 

TEMPORARY  ARRAY 

* 

•,'f 

TRUQNT 

TRUE  QUANTILE 

* 

* 

UNIRV 

UNIFORM  RANDOM  DEVIATES  (2-DIM) 

* 

* 

ZFAILS 

TOTAL  NUMBER  OF  REPLICATIONS  WITH  ZERO  FAILURES 

* 

* 

* 

ZFPREP 

NO.  OF  COMPNTS.  WITH  ZERO  FAILURES  PER  REPLICATION 

* 

* 

************************************************************************ 


PARAMETER  ( KK=10 , MAXALF=2 , NPRNT=0 ) 

PARAMETER  (MAXREP-1000,  MAXRUN=2000,  EPS=. 000001) 

REAL*4  UNIRV( 15 , 1000) ,TEMP( 1000) ,QI(KK) , AI(KK) ,AHATI(KK) 

REAL*4  QHATI(KK) ,  NMAX,  NNMAX,  QHTMAX,  CHISQR(5,5),  ALFA(MAXALF) 
REAL*4  DF(5)  iALFA(5) ,SUMNAI ,RSHAT(MAXALF,MAXREP) ,RS 
R£AL*4  KEYl(MAXREP) ,KEY2(MAXREP) ,KEY3(MAXREP) ,TRNSTR(MAXREP) 
REAL*4  DEGFR(MAXREP) ,  QHTUPR( MAXALF,MAXREP) ,CHISQ(MAXALF, MAXREP) 
R£AL*4  QUPAl(MAXREP),  QUPA2(MAXREP) ,RHTSTR(MAXALF, MAXREP) 

REAL*4  DELTAR(MAXALF).  TRANSQ( MAXREP) ,TRANSR(MAXREP) ,DIFF(MAXREP) 
REAL*4  DELSTR(MAXALF) ,NIM1N,NIMAX,NIREAL(KK). 

REAL*4  RSHTBR( MAXALF , MAXREP ) .DELBRG(MAXALF) ,KEY4(MAXREP) 

REAL*4  TRANBR( MAXREP),  RSBRDG  ,MSTRQ 
REAL*4  ZFPREP 
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REAL*4  AVGN , SUC , STUD , PTENP( 10) , FDEG1 , FDEG2 , P3 , S3 , S4 

INTEGER  SEED,  MULT,  SORT,  TRIALS( 15 , 1000) ,  BIGF,  FI(KK) ,  N(KK) 
INTEGER  NINDX,  QINDX,  ERROR,  REPS,  SELCTA,  SELCTK,  TOTREP 
INTEGER  C1C15,  REPSHD,  SELCTB ,  ALF,  FLAG,  LOOP,PRNT 
INTEGER  QUANTL(MAXALF) ,  TRUQNT(MAXALF) ,ZFAILS, FAILS, INC 
INTEGER  NTEST,FCT,HFI 

CHARACTER*8  LOOPSO(MAXREP) 

DATA  SEED/123457/,  MULT/1/,  INC/1/ 

DATA  AALFA/.  01,.  05,.  9,.  95,. 99/,  DF/1, 5, 10,30,40/ 

DATA  ALFA/.  20,-050/ 

DATA  SORT/O/ 

ASSIGN  8  TO  C1C15 
ASSIGN  9  TO  REPSHD 

CALL  COMPRS 
PRNT  =  NPRNT 


DO  12  1=1, KK 

AI(I)  =  9999. 
N(I)  =  99999999 
12  CONTINUE 

READ(03,*)K,MSTRQ 

DO  11  1=1, K 
READ(03,*)  AI(I) ,N(I) 
11  CONTINUE 


IF(K.NE.5)  THEN 

WRITE( 1 , ’ ( ’ ’ WARNING:  BRIDGE  STRUCTURE  ’ ' , 
+' 'ONLY  USES  THE  FIRST  5  COMPONENTS' ’ ) ’ ) 

ELSE 
END  IF 


***INITIALIZE  THE  QHTUPR  ARRAY  OF  UNRELIABILITY  REPLICATIONS,  *** 

*  RSHAT  ARRAY  OF  ESTIMATE  SYSTEM  RELIABILITY  REPLICATIONS  * 

*  AND  RHTSTR  ARRAY  OF  EST.  SYST.  REL.  FOR  A  SERIES  SYST  WHEN  * 

***ALL  THE  COMPONENT  MISSION  TESTS  ARE  EQUAL  IN  NUMBER  *** 


DO  172  ALF=1,MAXALF 

DO  173  REPS=1 ,MAXREP 

QHTUPR( ALF, REPS)  =  0. 

RSHAT( ALF, REPS)  =  0. 

RHTSTRC ALF, REPS)  =  0. 

RSHTBRC ALF, REPS)  =  0. 

LOOPSO(REPS)='  ******  ' 

173  CONTINUE 

172  CONTINUE 

***SET  FLAG  TO  1  IF  ALL  COMPONENTS  HAVE  SAME  NO.  OF  MISSION  TESTS**** 
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FLAG=1 

DO  50  1=1, K  -1 

IFCCN(I-)  -  N(I+1)).  NE.  0)  THEN 
FLAG=0 

ELSE 
END  IF 
50  CONTINUE 

PRINT  *,  ’FLAG  IS: ' ,  FLAG 

***MAIN  PROGRAM  OUTER  LOOP  START( EVERY  LOOP  IS  ONE  REPLICATION)*** 

ZFPREP  =  0. 

ZFAILS  =  0 
FAILS  =  0 
TOTREP  =  0 
LOOP  =  0 

10  IF(LOOP.LT.MAXREP)  THEN 
LOOP  =  LOOP  +  1 
IF( TOTREP.  LT. MAXRUN)  THEN 
TOTREP  =  TOTREP  +  1 

SELCTA  =  1 
SELCTB  =  2 

***FILL  ARRAY  KEY(REPS)  WITH  INTEGERS  1  TO  K  TO  BE  USED  AS  OUTPUT*** 
***OF  THE  SUBROUTINE  SHSORT  *** 

DO  95  REPS=1 ,  MAXREP 
KEYl(REPS)  =  REPS 
KEY2(REPS)  =  REPS 
KEY3(REPS)  =  REPS 
KEY4CREPS)  =  REPS 
95  CONTINUE 


***CALCULATE  NMAX  NOT  TO  PRINT  LONGER  THAN  THE  MAX  SAMPLE  SIZE*** 
***CALCULATE  THE  MAXIMUM  NO.  OF  TRIALS  AND  ITS  INDEX  NO.*** 

CALL  IMAX( N , K , NMAX , NINDX ) 


***CALCULATE  THE  Ql'S  FROM  THE  GIVEN  MASTER  Q  AND  THE  Al’S*** 

DO  115  1=1,  K 

QIC  I)  =  MSTRQ  *  AI(I) 

115  CONTINUE 
C  S3=QI(3) 

S4=QI( 1)**. 20 
DO  120  1=1,15 

DO  125  J=1 ,500 

UNIRV( I , J)  =  999. 

TRIALS( I , J)  =  99999 
125  CONTINUE 

120  CONTINUE 

***  DRAW  UNIFORM  (0,1)  RV'S  AND  CONVERT  TO  BERNOULLI  TRIALS*** 
DO  130  1=1,  K 
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CALL  SRND(SEED,  TEMP,  N(I),  MULT,  SORT) 
DO  135  J=l,  N(I) 

UNIRV(I,J)  =  TEMP(J) 

IF  (UNIRV(I,J).  LE.  1  -  QI(I))  THEN 
TRIALS( I ,  J)  =  0 

ELSE 

TRIALS(I,J)  =  1 
END  IF 

135  CONTINUE 
130  CONTINUE 


***CALCULATE  THE  NO.  OF  FAILURES  FOR  EACH  COMPONENT*** 

DO  150  1=1,  K 
FI  Cl)  =  0 
150  CONTINUE 
IONECT  =  0 

***CALCULATE  THE  F  SUB  I'S  AND  THE  GRAND  TOTAL  NO.  OF  FAILURES 
BIGF  =  0 
DO  155  1=1,  K 

DO  160  J=l,  N( I) 

FI ( I)  =  FI( I)  +  TRIALS( I , J) 

160  CONTINUE 

IF  (FI( I).  .EQ.  0)  THEN 
ZFPREP=ZFPREP+1 
ELSE 
ENDIF 

BIGF  =  BIGF  +  FI( I) 

QHATI(I)  =  REAL(FI(I))  /  N(I) 

155  CONTINUE 

***Changes  for  parallel  system*** 


IF  (FI( 1)  .EQ.  0)  THEN 
ZFPREP=ZFPREP  -  1 
ENDIF 

BIGF  =  BIGF  -  FIC1) 

FI( 1)  =  0 
DO  161  1=1, N(l) 

HFI=0 

DO  162  J=l,5 

CALL  SRND( SEED ,  PTEMP(J),  N(l),  MULT,  SORT) 
IF  (PTEMP(J)  .GT.  1-S4)  THEN 
HFI  =  HFI  +  1 
ENDIF 
162  CONTINUE 

IF  (HFI  .EQ.  5)  THEN 
FI ( 1)  =  FI ( 1)  +  1 
ENDIF 

161  CONTINUE 

BIGF  =  BIGF  +  FI( 1) 

IF  (FI( 1)  .EQ.  0)  THEN 
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ZFPREP  =  ZFPREP  +  1 

ELSE 
END  IF 

C  IF  (FI(3)  .EQ.  0)  THEN 
C  ZFPREP=ZFPREP  -  1 

C  ENDIF 

C  BIGF  =  BIGF  -  FI( 3) 

C  FI(3)  =  0 

C  DO  163  1=1, N(3) 

C  HFI=0 

C  DO  164  J=1 , 3 

C  CALL  SRND( SEED ,  PTEMP(J),  N(3),  MULT,  SORT) 

C  IF  (PTEMP(J)  .GT.  1-S3)  THEN 

C  HFI  =  HFI  +  1 

C  ENDIF 

C164  CONTINUE 

C  IF  (HFI  .GE.  2)  THEN 

C  FI(3)  =  FI(3)  +  1 

C  ENDIF 

C163  CONTINUE 

C  BIGF  =  BIGF  +  FI( 3) 

C  IF  (FI( 3)  .EQ.  0)  THEN 
C  ZFPREP  =  ZFPREP  +  1 

C  ELSE 
C  ENDIF 

DO  19  1=1, K 
01(1)  =  MSTRQ  *  AI(I) 

QHATI(I)  =  REAL(FI(I))  /  N(I) 

19  CONTINUE 
C  QI(4)  =  QI(4)**2 
C  P3  =  1. -QI(3) 

C  QI( 3)  =  1. -((3.*P3**2*QI(3))+(P3**3)) 

***COUNTS  NUMBER  OF  COMPONENTS  THAT  HAVE  FAILED*** 

DO  156  1=1, K 

IF  (FI(I)  .NE.  0)  I0NECT=I0NECT+1 
156  CONTINUE 

***CASE  WHERE  NO  COMPONENTS  HAVE  ANY  FAILURES*** 

IF(BIGF. EQ. 0)  THEN 

LOOPSO(LOOP)='  *ZERO*  ’ 

ZFAILS  =  ZFAILS  +  1 
AVGN=0. 0 
DO  200  1=1, K 

AVGN=AVGN+REAL( N( I ) ) 

200  CONTINUE 

AVGN=AVGN/REAL( K) 

DO  205  ALF=1,  MAXALF 

RSHAT(ALF,LOOP)=  ALFA(ALF)**( 1.  /AVGN) 
IF(FLAG. EQ. 1)  THEN 

RHTSTR( ALF , LOOP ) =ALFA( ALF ) **( 1 .  /N( 1 ) ) 

ELSE 
END  IF 

*  PRIN'1'  * , LOOP '  ,LOOP,  'RSHAT'  ,RSHAT( ALF, LOOP) 
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CONTINUE 

DEGFR( LOOP)  =  2. 

GO  TO  10 

ELSE 

FAILS  =  FAILS  +  1 
END  IF 

***COUNTS  NUMBER  OF  COMPONENTS  THAT  FAIL  RECORDS  NO.  COMPT  TESTS*** 
FCT=0 

DO  202  1=1, K 

IF  (FI( I)  .NE.  0)  THEN 
FCT=FCT+1 
NTEST=N(I) 

END  IF 

202  CONTINUE 

***FIND  THE  MAX  OF  THE  INDIVIDUAL  COMPONENT  UNRELIABILITIES*** 

CALL  RMAX( QHATI ,  K,  QHTMAX,  QINDX) 

IF  (LOOP  .EQ.  1)  THEN 
ENDIF 

***CALCULATE  THE  AHAT  SUB  I'S  (WEIGHT  ESTIMATES)*** 

***IF  COMPONENT  HAS  NO  FAILURES  AHAT  SUB  I  IS  ZERO*** 

SUMNAI  =  0. 

DO  165  1=1,  K 

AHATI(I)  =  QHATI(I)  /  QHTMAX 
SUMNAI  =  SUMNAI  +  N(I)  *  AHATI(I) 

165  CONTINUE 

***1  COMPONENT  FAILURE  SERIES  SYSTEM*** 

IF  (FCT  .EQ.  1)  THEN 

LOOPSO(LOOP)=*  *ONECF*  ' 

DO  305  ALF=1 ,MAXALF 
SUC=REAL( NTEST-B IGF ) 

FDEG1=2.  *(REAL( BIGF)+1. ) 

FDEG2=2. *SUC 

STUD=FIN( 1. -ALFA(ALF) ,FDEG1 ,FDEG2) 
RSHAT(ALF,L00P)=SUC/(SUC+(REAL(BIGF)+1.  )*STUD) 

*  PRINT  *,'SUC=’ ,SUC,'FAIL=' ,BIGF,'NTEST=' ,NTEST 

*  PRINT  *,'FIN=’  STUD 

*  PRINT  *, 'ALFA-  ,ALFA(ALF) , 'RSHAT=' ,RSHAT(ALF,LOOP) 

IF  (FLAG  .EQ. 1)  THEN 

RHTSTR( ALF, LOOP)=RSHAT( ALF , LOOP) 

ELSE 

ENDIF 

305  CONTINUE 
ENDIF 

***CALCULATE  1  REPLICATION  OF  UPPR  ALFA  C. L.  ON  SYSTEM  RELIABILITY*** 
DEGFR(LOOP)  =  2  *  (1  +  BIGF) 

DO  170  ALF=1 ,  MAXALF 
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CALL  MDCHI( 1  -  ALFA(ALF) ,DEGFR( LOOP) , CHI SQ(ALF, LOOP) ,  ERROR) 
QHTUPRC ALF , LOOP1)  =  CHISQ(ALF,LOOP)  /  (2  *  SUMNAI) 

1F(FLAG.EQ. 1)  THEN 

RHTSTRC ALF, LOOP)  =  1  -( CHI  SQ(  ALF  .LOOP)  /  REAL(-2*N(  1)  )  ) 

ELSE 
END  IF 

***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  COMPNTS.  IN  SERIES*** 
IF  (FCT  .NE.  1)  THEN 

CALL  RHTSRSC QHTUPRC ALF, LOOP),  AHATI ,K,  RSHAT( ALF, LOOP ) ) 
ENDIF 

***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  BRIDGE  STRUCTURE*** 

IF  (IONECT  .NE.  1)  THEN 

CALL  RHTBRGC  QHTUPRC  ALF , LOOP ) , AHATI , K , RSHTBRC ALF , LOOP ) ) 
ENDIF 

170  CONTINUE 

***EXACTLY  1  COMPONENT  FAILS  AND  REDUNDANT  COMPONENT*** 

IF  CC IONECT  .EQ.  1)  .AND.  CK  .EQ.5))  THEN 
DO  207  1=1,  K 

NIREALC I)  =  REALCN(I)) 

207  CONTINUE 

CALL  USMNMXC  NIREAL , K , INC , NIMIN , NIMAX) 

DO  206  ALF=1 ,MAXALF 

RSHTBRC ALF, LOOP )=ALFA( ALF)**( 1.  /NIMIN) 

206  CONTINUE 
ENDIF 

***THIS  ELSE  AND  ENDIF  ARE  FOR  THE  TEST  AGAINST  MAXRUN*** 

ELSE 

WRITEC 1 , ' C ’ '  "  , /  "  PROGRAM  EXCEEDED  THE  MAX  NO.  OF  RUNS ' ’ , 

+  ' '  ALLOWED  OF:  "  ,16) f )  TOTREP 
GOTO  9999 

END  IF 
GOTO  10 
END  IF 

C  WRITEC2, 'C  "UNSORTED  RSHAT  1  IS:  "  ,/10CF8.  5))'  ) 

C  +CRSHATC 1 .LOOP) ,  L00P=1,  MAXREP) 

C  WRITEC2,'C  "UNSORTED  RSHAT  2  IS:  "  ,/10CF8.  5) ) '  ) 

C  +CRSHATC2.L00P),  L00P=1,  MAXREP) 

C  IFCFLAG.EQ.  1)  THEN 

C  WRITEC2,'C  "UNSORTED  RHTSTR  1  IS:  "  ,/10CF8.  5)) '  ) 

C  +C RHTSTRC 1 , LOOP ) .  L00P=1,  MAXREP) 

C  WRITEC2,'C  UNSORTED  RHTSTR  2  IS:  "  ,/10(F8. 5)) ' ) 

C  +( RHTSTRC 2, LOOP),  L00P=1,  MAXREP) 

C  ELSE 

C  END  IF 

C  IFCK.EQ.5)  THEN 

C  WRITEC  2,' C"  UNSORTED  RSHTBR  1  IS:  "  ,/10(F8.  5)) '  ) 


SO 


o  o  o  o  o  o  o 


+(RSHTBR( 1 , LOOP) .  LOOP=l,  MAXREP) 

WRITE(2, '(f 'UNSORTED  RSHTBR  2  IS:  "  ,/10(F8. 5) ) ' ) 

+( RSHTBRC 2 , LOOP ) ,  LOOP=l,  MAXREP) 

ELSE 
END  IF 

WRITE  (2, '("ZERO  AND  ONE  FAILURE  REPS:  "  ,/10(A8)) '  ) 

+  (LOOPSO(LOOP) ,LOOP=l , MAXREP) 

***SORT  THE  ARRAYS  OF  SYSTEM  UNRELIABILITIES( 1  FOR  EACH  CONF.  LEVEL)*** 

DO  700  ALF=1,  MAXALF 

DO  800  REPS=1,  MAXREP 

TRANSQ(REPS)  =  QHTUPR( ALF, REPS) 

TRANSR(REPS)  =  RSHAT( ALF, REPS) 

TRNSTR(REPS)  =  RHTSTR(ALF,REPS) 

TRANBR(REPS)  =  RSHTBRC ALF, REPS) 

80 0  CONTINUE 

CALL  SHSORT( TRANSQ , KEY1 , MAXREP ) 

CALL  SHSORT( TRANSR , KEY2 , MAXREP ) 

CALL  SHS0RT(TRNSTR,KEY3, MAXREP) 

CALL  SHS0RT(TRANBR,KEY4, MAXREP) 

DO  900  REPS=1,  MAXREP 

QHTUPR( ALF , REPS )  =  TRANSQ(REPS) 

RSHAT( ALF, REPS)  =  TRANSR(REPS) 

RHTSTR( ALF, REPS)  =  TRNSTR(REPS) 

RSHTBR( ALF, REPS)  =  TRANBR(REPS) 

900  CONTINUE 

700  CONTINUE 

***PRINT  OUTPUT  REPORT  HEADINGS*** 

WRITE( 1,6666) 

WRITEC 1,6667)  MAXREP 
WRITE( 1,6668)  K 
WRITEC 1,6669) 

IF(K.  EQ.  5)  THEN 
WRITEC 1,6699) 

ELSE 
END  IF 

WRITEC 1,6670)  MSTRQ 
WRITEC 1,6671) 

WRITEC 1,C1C15) 

WRITEC 1,3334)  AI 
WRITEC 1,0007) 

WRITEC 1,C1C15) 

WRITEC 1,3334)  QI 
WRITEC 1,0005) 

WRITEC 1,C1C15) 

WRITEC 1,3335)  N 
WRITEC 1,6674) 

***COMPUTE  THE  VALUE  RS  OF  THE  TRUE  SYSTEM  REL.  FNCTN. (SERIES  SYSTEM)*** 
***  AND  FOR  THE  5 -COMPONENT  BRIDGE  STRUCTURE*** 
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CALL  RSRSCQI ,K.RS) 

WRITE(1,'("  ",////'  'THE  TRUE  SERIES  SYSTEM  ", 

+  " RELIABILITY  VALUE  IS:  "  ,T51,F8.  5)  ’  )  RS 
CALL  RBRIDG(QI,K,RSBRDG) 

IFCK.EQ.5)  THEN 

WRITEC 1 , 1  (  "  ",////"  THE  TRUE  BRIDGE  STRUCTURE  ", 

+  ' 'RELIABILITY  VALUE  IS:  "  ,T51,F8. 5) ' )  RSBRDG 
ELSE 
END  IF 

VRITEC 1,6675) 

***COMPUTE  THE  DIFFERENCE  'DELTAR'  BTWN.  RS  AND  RSHAT  OF  THE  THEO*** 
***RETICAL  QUANTILE  GIVEN  BY  ALFA(MUST  USE  SORTED  RSHAT  ARRAY)*** 

IF(FLAG.EQ.  1)  THEN 
WRITE( 1,5755) 

ELSE 
END  IF 

DO  450  ALF=1,  MAXALF 

QUANTL(ALF)  =  MAXREP  *  (1  -  ALFA(ALF)) 

DELTAR(ALF)  =  RS  -  RSHAT(ALF,QUANTL(ALF)) 

DELBRG(ALF)  =  RSBRDG  -  RSHTBR( ALF , QUANTLC  ALF ) ) 

IFCFLAG.EQ.  1)  THEN 

DELSTR(ALF)  =  RS  -  RHTSTR( ALF , QUANTL( ALF ) ) 

WRITEC 1,5555)  MAXREP,  ALFA(ALF) ,  REAL( QUANTLC ALF)) 
WRITEC 1,5656)  RHTSTRC ALF, QUANTLC ALF)) 

VRITEC 1,5657)  DELSTRCALF) 

ELSE 
END  IF 

IFCK.EQ.5)  THEN 

DELBRGCALF)  =  RSBRDG  -  RSHTBRC ALF, QUANTLC ALF)) 

WRITEC 1,5555)  MAXREP,  ALFA(ALF),  REALC QUANTLC ALF ) ) 
WRITEC 1,5666)  RSHTBRC  ALF , QUANTLC ALF) ) 

WRITEC 1,5667)  DELBRGCALF) 

ELSE 
END  IF 

WRITEC 1,5555)  MAXREP,  ALFACALF),  REALC QUANTLC ALF)) 

WRITEC 1,5556)  RSHATC ALF, QUANTLC ALF)) 

WRITEC 1,5557)  DELTAR(ALF) 

450  CONTINUE 

PRINT*,  ’ QUANTLC 1)  IS:',  QUANTLC 1) 

PRINT*,  ’QUANTLC 2)  IS:',  QUANTLC 2) 

***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 

***  ********  RSHAT  *******  *** 

WRITEC1,6676) 

DO  400  ALF=1, MAXALF 
TRUQNTCALF)  =  0 

DO  500  REPS=1,  MAXREP 

DIFFCREPS)  =  RS  -  RSHATC ALF, REPS) 

500  CONTINUE 

DO  600  REPS=1 ,  MAXREP 

IFCABSCDIFFCREPS)). LE. EPS)  THEN 
TRUQNTCALF)  =  REPS 

WRITEC 1 , ' (  "  "  ,  /  " TRUE  CONFIDENCE  LIMIT  IS:  "  , 
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F8.4)') 

CTRUQNTCALF)  /  REALC MAXREP))  *  100. 

GO  TO  620 

ELSEIFCDIFF(REPS).  LT.  0. )  THEN 
TRUQNT(ALF)  =  REPS 
GO  TO  610 

ELSE 
END  IF 
CONTINUE 

IFCTRUQNT(ALF).  EQ.  0.  )  THEN 
WRITEC 1,4443)  ALFA(ALF) 

WRITE(  1, 1  (  '  *  11 ,/'  'THE  SMALLEST", 
b  ' '  DIFFERENCE  BETWEEN  RS  AND  RSHAT  IS: * 1 ,F10.5)')  DIFF( 

r  MAXREP) 

ELSEIF(TRUQNT(ALF). EQ. 1.  )  THEN 
WRITE( 1,4442)  ALFA(ALF) 

WRITEC  1 , 1  (  "  *  * ,  /  *  ’  ALL  RSHAT", 

(•  "  ARE  GREATER  THAN  RS")’) 

ELSEIFCABSCDIFF(TRUQNT(ALF))).LE.ABSCDIFFCTRUQNTCALF)  -  1))) 
h  THEN 

WRITEC 1,4444)  ALFACALF), 
l-  CTRUQNTCALF)  /  REALC MAXREP))  *  100. 

WRITEC 1,4445)  RSHAT(ALF,TRUQNTCALF)) 

WRITEC 1,4446) 

ELSE 

WRITEC 1,4444)  ALFA(ALF), 

l-  C  CTRUQNTCALF) -1)  /  REALC  MAXREP))  *  100. 

WRITEC 1,4445)  RSHATC ALF , TRUQNTC ALF) - 1 ) 

WRITEC 1,4447) 

END  IF 
CONTINUE 


***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 
***  ********  RSHTBR  C BRIDGE)  *******  *** 


IFCK.EQ.  5)  THEN 
DO  401  ALF=1,MAXALF 
TRUQNTC ALF)  =  0 

DO  501  REPS=1 ,  MAXREP 

DIFFCREPS)  =  RSBRDG  -  RSHTBRC ALF, REPS) 

CONTINUE 

DO  601  REPS=1,  MAXREP 

IFCABSCDIFFCREPS)).LE.EPS)  THEN 
TRUQNTC ALF)  =  REPS 

WRITEC  1,  *  (*  *  ",/"TRUE  CONFIDENCE  LIMIT  IS: 
f  F8. 4)  ’ ) 

f  CTRUQNTCALF)  /  REALC MAXREP))  *  100. 

GO  TO  621 

ELSEIFC DIFFCREPS). LT. 0. )  THEN 
TRUQNTC ALF)  =  REPS 
GO  TO  611 

ELSE 
END  IF 
CONTINUE 

IF(TRUQNTCALF). EQ. 0. )  THEN 
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WRITEC 1,4443)  ALFAC  ALF): 

WRITEC 1 , '  ( ' 1  ’’./"THE  SMALLEST", 

+  ' ’  DIFFERENCE  BETWEEN  RSBRDG  AND  RSHTBR  IS:  "  , 

+  F10. 5) ' )  DIFF(MAXREP) 

ELSEIF(TRUQNT(ALF). EQ.  1.  )  THEN 
WRITE( 1,4442)  ALFA(ALF) 

WRITEC  1,’("  ",/’’ ALL  RSHTBR", 

+  ' ’  ARE  GREATER  THAN  RSBRDG' ' ) ’ ) 

ELSEIFCABSCDIFFCTRUQNTCALF))).LE.ABSCDIFFCTRUQNTCALF)  -  1))) 
+  THEN 

WRITEC 1 , 4444)  ALFAC ALF) , 

+  CTRUQNTCALF)  /  REALCMAXREP))  *  100. 

WRITEC 1,4449)  RSHTBRC ALF , TRUQNTC ALF ) ) 

WRITEC 1,4446) 

ELSE 

WRITEC 1,4444)  ALFAC ALF), 

+  C CTRUQNTCALF) -1)  /  REALCMAXREP))  *  100. 

WRITEC 1,4449)  RSHTBRC ALF.TRUQNTC ALF) -1) 

WRITEC 1,4447) 

621  END  IF 

401  CONTINUE 
ELSE 
END  IF 


***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 
***  ********  RHTSTR  ********  *** 


IFCFLAG.  EQ. 1)  THEN 
DO  4400  ALF=1,MAXALF 
TRUQNTC ALF)  =  0 

DO  5500  REPS=1,  MAXREP 

DIFFCREPS)  =  RS  -  RHTSTRC ALF, REPS) 

5500  CONTINUE 

DO  6600  REPS=1,  MAXREP 

IFCABSCDIFFCREPS)). LE. EPS)  THEN 
TRUONTCALF)  =  REPS 

WRITEC 1, ' C ’ '  "  ,/' ’TRUE  CONFIDENCE  LIMIT  IS:  "  , 
+  F8. 4) '  ) 

+  CTRUQNTCALF)  /  REALCMAXREP))  *  100. 

GO  TO  6620 

ELSEIFCDIFFCREPS). LT. 0. )  THEN 
TRUQNTC ALF)  =  REPS 
GO  TO  6610 

ELSE 
•  END  IF 

6600  CONTINUE 

6610  IFCTRUQNTCALF).EQ.O.  )  THEN 

WRITEC 1,4443)  ALFAC ALF) 

WRITEC  1 ,  ’  C ' '  ",/"  THE  SMALLEST", 

+  ' '  DIFFERENCE  BETWEEN  RS  AND  RHTSTR  IS:  "  , 

+  F9. 5) ' )  DIFFCMAXREP) 

ELSEIFCTRUQNTCALF).  EQ.  1.  )  THEN 
WRITEC 1,4442)  ALFACALF) 

WRITEC  1,  *  C  *  *  ",/"  ALL  RHTSTR", 

+  "ARE  GREATER  THAN  RS"  )  ’  ) 
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ELSEIF(ABS(DIFF(TRUQNT(ALF))).LE.ABS(DIFF(TRUQNT(ALF)  -  1))) 
+  THEN 

WRITEC 1,4444)  ALFA(ALF) , 

+  (TRUQNT(ALF)  /  REAL(MAXREP))  *  100. 

WRITEC 1,4448)  RHTSTR( 4LF,TRUQNT(ALF)) 

WRITEC 1,4446) 

ELSE 

WRITEC 1,4444)  ALFACALF),- 

+  CCTRUQNTCALF)-1)  /  RE ALC MAXREP))  *  100. 

WRITEC 1,4448)  RHTSTRCALF,TRUQNTCALF)-1) 

WRITEC 1,4447) 

6620  END  IF 

4400  CONTINUE 
ELSE 
END  IF 

***PRINT  THE  ARRAYS  PERTINENT  TO  THE  OUPUT  OF  EACH  REPLICATION*** 

IFCPRNT.EQ.  1)  THEN 
1  =  1 

185  WRITEC 1,REPSHD)  ALFACSELCTA) ,  ALFACSELCTA) , 

+ALFACSELCTB) ,ALFACSELCTB) , ALFACSELCTA) ,ALFA(SELCTA) .ALFACSELCTB) , 
+ALFACSELCTB) 

175  IFCI.GE.  CMAXREP  +  1))  THEN 
GOTO  180 

ELSE 

IFC  Cl- EQ.  71).  OR.  Cl-  EQ.  211).  OR.  Cl-  EQ.  351).  OR.  Cl. EQ.  491).  OR. 

+  Cl.  EQ.  631).  OR.  C I-  EQ.  771).  OR.  Cl*  EQ.  911).  OR.  Cl.  EQ.  1051)  )  THEN 
I  =  I  +  70 
WRITEC 1, 1 C ' '+' ' ) ' ) 

GOTO  185 

ELSE 

WRITEC1,3336)  I,  INT(DEGFR(I)) ,  CHISQC1,I),  QHTUPRC1,I), 

+  CHISQC2,I),  QHTUPRC2, I) 

END  IF 

IFC I  +  70. LE. MAXREP)  THEN 

WRITEC 1,3337)  1+70, INTCDEGFRC 1+70) ) ,CHISQC 1,1+70) , 

+  QHTUPRC 1 , 1+70) ,CHISQC 2 , 1+70) ,QHTUPRC2 , 1+70) 

ELSE 
END  IF 
1  =  1  +  1 
GOTO  175 
180  END  IF 
ELSE 
ENDIF 

9999  WRITEC  1,'C" THE  TOTAL  NO  OF  REPS  WAS;  ' 1 ,18) ' )  TOTREP 

WRITEC 1, 1 C * 'THE  TOTAL  NO  OF  EFFECTIVE  REPS  WAS:  ",18)')  LOOP 
WRITEC 1,'C' 'THE  TOTAL  NO  OF  NO  FAILURE  RUNS  WAS:'*, 18)')  ZFAILS 
WRITEC  1,'C  "AVERAGE  NO.  OF  COMPONENTS  PER  REPLICATION  WITH  ", 

+' 'NO  FAILURES:  "  ,F5.  2) ‘ )  ZFPREP  /  MAXREP 

WRITEC  1,'C  "THE  TOTAL  NO  OF  RUNS  WITH  FAILURES  WAS:  ",I8)')  FAILS 
0008  FORMAT  C/  3X,'C  l',5X,'C  2’, 

+5X,'C  3\5X,'C  4’,5X,'C  5’,5X,'C  6',5X,'C  7’,5X, 

+'C  8'.5X,'C  9',5X,'C  10’,4X,'C  11' ,4X, 

+'C  12*,4X,'C  13',4X,'C  14',4X,'C  15') 
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0009  F0RMAT(/1X, 'REP  NO1 ,2X. 'DF' ,  IX. 'CHISQRC 1 ,F4.  3, ' )  1 ,  IX. 

+' QHTUPR( ' ,F4.  3 , ' ) '  IX, f CHISQRC ' ,F4. 3 , ' ) ' . IX, ' QHTUPR( '  ,F4.  3 , ' ) ' , 
+2X, 'REP  NO' ,2X, 'DFf ,1X  'CHISQR( ' ,F4.  3  ' ) ' ,1X. 

+'QHTUPR('  ,F4.3,')'  ,1X,  CHISQRC  ,F4.3,')’  IX,  QHTUPRC  ,F4.3,')'/) 
0001  FORMAT  (///’UNIFORM  RANDOM  DEVIATES  ARE: f) 

0002  FORMAT  (///'BERNOULLI  TRIALS  ARE: ') 

0003  FORMAT  (///'TOTAL  NO.  OF  FAILURES  FOR  EACH  COMPONENT:  ') 

0004  FORMAT  (///’ESTIMATED  UNRELIABILITY  FOR  EACH  COMPONENT:  ') 

0005  FORMAT  (///'TOTAL  NUMBER  OF  MISSION  TESTS: ') 

0006  FORMAT  (///’ESTIMATED  WEIGHTS  FOR  EACH  COMPONENT:  ') 

0007  FORMAT  (///' Q  I  FOR  EACH  COMPONENT:  ' ) 

1111  FORMAT  (15F8.5) 


2222  FORMAT  (/IX, 15(14, 4X)) 

3333  FORMAT  (/IX, 15(14, 4X)) 

3334  FORMAT  (/15F8.5) 

3335  FORMAT  (/1X,15(I4,4X)) 

3336  FORMAT  (T3.I4,T9,I3,T13,F11.  5,T27,F8.  5,T39,F11.  5,T53,F8.  5) 

3337  FORMAT  ( '+f  ,T67.I4,T73,I3,T77,F11. 5,T91,F8. 5,T103,F11.  5,T117,F8.  5) 

4442  FORMAT  ('  ’,///fTHE  RESULTING  (1  -  f,F4. 3,')  CONFIDENCE  ’, 

+’ LIMIT  IS:  ' ,T50. '  00.000  ’) 

4443  FORMAT  ('  ',///* THE  RESULTING  (1  -  ’,F4.3,')  CONFIDENCE  ', 

+' LIMIT  IS:  ’ ,T50. ' 100. 0000’ ) 

4444  FORMAT  ('  ',///fTHE  RESULTING  (1  -  ' ,F4. 3,')  CONFIDENCE  ', 

+’ LIMIT  IS:  '  ,T50,F8.  4) 

4445  FORMAT  (’  ’,/'THE  RSHAT  VALUE  CLOSEST  TO  RS  IS:  ’,T51,F8.5) 

4446  FORMAT  ( '  ’ ,/ ’ (FIRST  NEGATIVE  DIFFERENCE) ' ) 

4447  FORMAT  (’  ',/' (ELEMENT  PRECEEDING  FIRST  NEGATIVE  DIFFERENCE)’) 

4448  FORMAT  ('  ’,/'THE  RHTSTR  VALUE  CLOSEST  TO  RS  IS:  ’,T51,F8.5) 

4449  FORMAT  ('  ’,/'THE  RSHTBR  VALUE  CLOSEST  TO  RSBRDG  IS:  ’,T51,F8.5) 

5555  FORMAT  (’  ',///’THE  ' ,14, ’ ( 1-' ,F4. 3, ' )  QUANTILE  IS: ' ,T49,F8.  3) 

5556  FORMAT  (’  ' ,/'THE  VALUE  OF  RSHAT  FOR  THAT  QUANTILE  IS: ' ,T51,F8. 5) 

5557  FORMAT  ('  '  ,/*THE  DIFFERENCES  -  RSHAT)  IS:  '  ,T51,F8.  5) 

5656  FORMAT  ('  ’,/'THE  VALUE  OF  RHTSTR  FOR  THAT  QUANTILE  IS: ’ ,T51,F8.  5) 

5666  FORMAT  ('  ',/'THE  VALUE  OF  RSHTBR  FOR  THAT  QUANTILE  IS: ’,T51,F8.5) 

5657  FORMAT  ('  ’  ,/'THE  DIFFERENCES  -  RHTSTR)  IS:  '  ,T51,F8.  5) 

5667  FORMAT  ('  ’,/'THE  DIFFERENCES  -  RSHTBR)  IS:  '  ,T51,F8. 5) 

5755  FORMAT  ('  ’,///’ SINCE  THE  NO.  OF  MISSION  TESTS  IS  THE  SAME  FOR’, 

+’  ALL  COMPONENTS  THE  CLOSED  FORM  SERIES  SYSTEM  RELIABILITY  ’ , 

+" ’RHTSTR”  IS  COMPUTED’) . 

+  RUN  INPUT  SETTINGS  «  , 


4-  •  *rfr»A^\^7fr*-A-*A-****-***  *  ) 

6667  FORMAT  (’  ’,//’ NUMBER  OF  REPLICATIONS:  ’ ,T50, 14) 

’ ,//’ NUMBER  OF  COMPONENTS: ’ ,T50,I4) 

’ ,//’ SYSTEM  RELIABILITY  FUNCTION: ’ ,T50, ’SERIES’ ) 
’, //’SYSTEM  RELIABILITY  FUNCTION: ’ ,T50, ’BRIDGE’ ) 
’, //’MASTER  UNRELIABILITY  USED:  ’ ,T50,F8. 5) 


6668  FORMAT  (' 

6669  FORMAT  (’ 
6699  FORMAT  (’ 

6670  FORMAT  (’ 

6671  FORMAT  (’ 


’,//’ INPUT  WEIGHTS(A  SUB  l”S):  ’) 


6674  FORMAT  (’+',///'  t 

+  *  1rirlrtrtr}rirktt**-ir.’e 1  ) 

6675  FORMAT  ( '+* ,///' 1 
+|  ESTIMATE  ERRORS 

6676  FORMAT  ('+' ,///’’ 
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+j  TRUE  CONFIDENCE  LIMITS 


APPENDIX  G.  FORTRAN  CODE  FOR  ALTERNATE  PROCEDURE  A 
FOR  ESTIMATING  THE  LOWER  CONFIDENCE  LIMIT  FOR  SYSTEM 

RELIABILITY 

PROGRAM  ZFYSCN 


*  * 

*  TITLE:  BINOMIAL  INTERVAL  ESTIMATION  PROCEDURE  * 

*  ZERO  FAILURES  ALLOWED;  NO  SCALING  * 

*  AUTHOR:  E.  F.  BELLINI,  LT,  USN  * 

*  DATE:  NOV  89  * 

*  * 

*  THIS  PROGRAM  COMPUTES  THE  TRUE  CONFIDENCE  LEVEL  FOR  THE  ESTIMATE  * 

*  RELIABILITY  OF  A  SERIES  AND  BRIDGE  SYSTEM  GIVEN  THE  RELIABILITY  * 

*  OF  THEIR  COMPONENTS  * 

*  * 


*  IN  ITS  PRESENT  CONFIGURATION  THIS  PROGRAM  IS  SET  UP  TO  RUN  12  * 

*  TIMES  EACH  TIME  PRODUCING  1000  REPLICATIONS  USING  A  DIFFERENT  * 

*  SET  OF  INPUT  DATA.  RUN  THE  PROGRAM  FROM  CMS  BY  TYPING  'Bl  EXEC'.* 


*  THE  REXX  EXEC  PROGRAM  * 

*  ' Bl*  CALLS  THE  INPUT  FILES  TO  BE  READ  AND  NAMES  THE  12  OUTPUT  * 

*  FILES  RESULTING  FROM  THE  12  CONSECUTIVE  RUNS.  BY  EDITING  THE  * 

*  INDEX  COUNTERS  I,  J,  K  OF  THE  'Bl'  EXEC  ONE  CAN  RUN  ANY  USER-  * 

*  SPECIFIC  RUN  FROM  JUST  ONE  RUN  TO  ALL  12.  * 

*  * 


*  VARIABLES  USED 

* 


* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


AHATI  :  WEIGHT  ESTIMATES  FOR  EACH  COMPONENT  * 
AI  :  INPUT  WEIGHTS  FOR  EACH  COMPONENT  * 
ALFA  :  LEVELS  OF  SIGNIFICANCE  * 
BIGF  :  TOTAL  NO.  OF  FAILURES  FOR  EACH  REPLICATION  * 
CHISQ  :  CHI-SQUARE  RANDOM  VARIABLE  VALUE  * 
C1C15  :  FORMAT  LABEL  * 
DEGFR  :  DEGREES  OF  FREEDOM  * 
DELBRG  :  DIFFERENCE  FOR  BRIDGE  SYSTEM  * 
DELSTR  :  DIFFERENCE  FOR  SERIES  SYSTEM-  CLOSED  FORM  * 
DELTAR  :  DIFFERENCE  FOR  SERIES  SYSTEM  * 
DIFF  :  DIFFERENCE  (TRUE  REL.  -  ESTIMATED  REL. )  * 
EPS  :  SMALL  QUANTITYC CONSTANT)  * 
ERROR  :  PARAMETER  FOR  IMSL  ROUTINE  * 
FAILS  :  COUNTS  NO.  OF  REPLICATIONS  WITH  AT  LST.  1  FAILURE  * 
FI  :  NO.  OF  FAILURES  FOR  EACH  C0MP0NENT( ALL  MISSION  TST)* 
FLAG  :  1  IF  ALL  COMP.  HAVE  SAME  NO.  OF  MISSION  TESTS  * 
INC  :  INCREMENT  STEP  SIZE  FOR  ROUTINE  USMNMX  * 
KEY1  :  ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
KEY2  :  ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
KEY3  :  ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
KEY4  :  ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
KK  :  ARRAY  SIZING  PARAMETER  FOR  THE  MAX  NO  OF  COMPONENTS* 
LOOP  :  COUNTS  NO.  OF  REPLICATION  PERFORMED  * 


MAXALF  :  MAX  NO.  OF  SIGNIFICANT  LEVELS  DESIRED( ARRAY  SIZING)* 
MAXREP  :  MAX  NO.  OF  REPLICATIONS  * 
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* 

MAXRUN 

MAX  NO.  OF  PROGRAM  ITERATIONS  ALLOWED 

* 

* 

MSTRQ 

MASTER:  UNRELIABILITY(USED  WITH  AT'S  TO  CALC.  QI'S) 

* 

* 

MULT 

• 

MULTIPLIER  FOR  RANDOM  NO.  GENERATOR  SRND 

* 

* 

N 

» 

• 

NO.  OF  MISSION  TEST  FOR  EACH  COMPONENT  * 

* 

NIMAX 

MAX  NO.  OF  MISSION  TESTS 

* 

* 

NIMIM 

MIN  NO;  OF  MISSION  TESTS 

* 

* 

NINDX 

INDEX  NO.  OF  MAX  NO.  OF  MISSION  TESTS 

* 

* 

NIREAL 

NO.  OF  MISSION  TESTS  TRANSFORMED  TO  REAL 

* 

NMAX 

MAX  NO.  OF  MISSION  TESTS  FOR  OUTPUT  CONTROL 

* 

* 

NPRNT 

« 

FLAG  FOR  DETAILED  REPORT  OUTPUT 

* 

* 

PRNT 

• 

• 

SAME  AS  ABOVE (PARAMETER) 

* 

* 

QHATI 

UNRELIABILITY  ESTIMATES  FOR  EACH  COMPONENT 

* 

* 

QHTMAX 

• 

LARGEST  QHATI 

* 

* 

QHTUPR 

« 

• 

UPPER  LIMIT  ON  SYSTEM  UNRELIABILITY 

* 

* 

QI 

INPUT  UNRELIABILIY  FOR  EACH  COMPONENT 

* 

★ 

QINDX 

INDEX 

* 

* 

QUANTL 

QUANTILE 

* 

* 

REPSHD 

REPLICATIONS  HEADING  FORMAT  NUMBER 

* 

* 

RHTSTR 

SERIES  SYSTEM  RELIABILITY  ESTIMATE( CLOSED  FORM) 

* 

* 

RS 

TRUE  SERIES  SYSTEM  RELIABILITY 

* 

* 

RSBRDG 

• 

TRUE  BRIDGE  SYSTEM  RELIABILITY 

* 

* 

RSHAT 

* 

♦ 

SERIES  SYSTEM  RELIABILITY  ESTIMATE 

* 

* 

RSHTBR 

* 

• 

BRIDGE  SYSTEM  RELIABILITY  ESTIMATE 

* 

* 

SEED 

♦ 

• 

PARAMETER 

* 

* 

SELCTA 

• 

• 

SIGNIFICANCE  LEVEL  SELECTION 

* 

* 

SELCTB 

« 

* 

SIGNIFICANCE  LEVEL  SELECTION 

* 

* 

SORT 

• 

« 

PARAMETER  FOR  ROUTINE  SRND 

* 

* 

SUMNAI 

• 

• 

SUM  OF  THE  PRODUCT  OF  Nl'S  AND  Al'S 

* 

* 

TEMP 

« 

TEMPORARY  ARRAY 

* 

* 

TOTREP 

• 

• 

TOTAL  NUMBER  OF  PROGRAM  ITERATIONS 

* 

* 

TRANBR 

• 

• 

TEMPORARY  ARRAY 

* 

* 

TRANSQ 

• 

• 

TEMPORARY  ARRAY 

* 

* 

TRANSR 

• 

* 

TEMPORARY  ARRAY 

* 

* 

TRIALS 

• 

BERNOULLI  TRIALS  ARRAY  (2-DIM) 

* 

* 

TRNSTR 

• 

• 

TEMPORARY  ARRAY 

* 

* 

TRUQNT 

• 

• 

TRUE  QUANTILE 

* 

* 

UNIRV 

• 

• 

UNIFORM  RANDOM  DEVIATES  (2-DIM) 

* 

* 

ZFAILS 

• 

TOTAL  NUMBER  OF  REPLICATIONS  WITH  ZERO  FAILURES 

* 

* 

* 

ZFPREP 

NO.  OF  COMPNTS.  WITH  ZERO  FAILURES  PER  REPLICATION 

* 

* 

PARAMETER  (KK=10,MAXALF=2,NPRNT=0) 

PARAMETER  (MAXREP=1000,  MAXRUN=2000,  EPS=.  000001) 

REAL*4  UNIRVC 15 , 1000) ,TEMP( 1000) ,QI(KK) ,AI(KK) ,AHATI(KK) 

REAL*4  QHATI  (=KK),  NMAX,  NNMAX,  QHTMAX,  CHISQR(S,5),  ALFA(MAXALF) 
REAL*4  DF(5) ,AALFA(5) ,SUMNAI,RSHAT(MAXALF,MAXREP) ,RS 
REALM  KEYl(MAXREP) ,KEY2(MAXREP) ,KEY3(MAXREP) ,TRNSTR(MAXREP) 
REALM  DEGFR(MAXREP) ,  QHTUPRC MAXALF , MAXREP ) , CHI SQ( MAXALF , MAXREP) 
REALM  QUPA1( MAXREP),  QUPA2(MAXREP) ,RHTSTR( MAXALF, MAXREP) 

REALM  DELTAR( MAXALF),  TRANSQ( MAXREP) ,TRANSR( MAXREP) ,DIFF(MAXREP) 
REALM  DELSTR( MAXALF) ,NIMIN,NIMAX,NIREAL(KK) 

REALM  RSHTBRC MAXALF, MAXREP) ,DELBRG( MAXALF) ,KEY4( MAXREP) 

REALM  TRANBR( MAXREP),  RSBRDG  ,MSTRQ 
REAL*4  ZFPREP 
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INTEGER  SEED,  MULT,  SORT,  TRIALS( 15,1000),  BIGF,  FI(KK),  N(KK) 
INTEGER  NINDX,  QINDX,  ERROR,  REPS,  SELCTA,:  SELCTK,  TOTREP 
INTEGER  C1C 15,  REPSHD,  SELCTB,  ALF,  FLAG,.  LOOP, PRNT 
INTEGER  QUANTL( MAXALF) ,  TRUQNT( MAXALF) , ZFAILS , FAILS , INC 

DATA  SEED/123457/,  MULT/1/,  INC/1/ 

DATA  AALFA/.  01,.  05,.  9,.  95,.  99/,  DF/ 1,5, 10,30, 40/ 

DATA  ALFA/.  20,.  050/ 

DATA  SORT/ 0/ 

ASSIGN  8  TO  C1C15 
ASSIGN  9  TO  REPSHD 

*  CALL  COMPRS 
PRNT  =  NPRNT 

DO  12  1=1, KK 

AI(I)  =  9999. 

N(I)  =  99999999 
12  CONTINUE 

READ(03,*)K,MSTRQ 

DO  11  1=1, K 
READ(03,*)  AI(I) ,N(I) 

11  CONTINUE 


IFCK.NE.5)  THEN 

WRITE ( 1 , ' ( ' 'WARNING:  BRIDGE  STRUCTURE  ' 1 , 

+'  ' ONLY  USES  THE  FIRST  5  COMPONENTS")') 

ELSE 
END  IF 

//*** 


//*** 

DO  172  ALF=1, MAXALF 

DO  173  REPS=1 ,MAXREP 

QHTUPR( ALF, REPS)  =  0. 

RSHAT( ALF, REPS)  =  0. 

RHTSTR( ALF, REPS)  =  0. 

RSHTBRC ALF, REPS)  =  0. 

173  CONTINUE 

172  CONTINUE 


***//  INITIALIZE  THE  QHTUPR  ARRAY  OF  UNRELIABILITY  REPLICATIONS, 

*  RSHAT  ARRAY  OF  ESTIMATE  SYSTEM  RELIABILITY  REPLICATIONS 

*  AND  RHTSTR  ARRAY  OF  EST.  SYST.  REL.  FOR  A  SERIES  SYST  WHEN 
***//  ALL  THE  COMPONENT  MISSION  TESTS  ARE  EQUAL  IN  NUMBER 


***//  SET  FLAG  TO  1  IF  ALL  COMPONENTS  HAVE  SAME  NO.  OF  MISSION  TESTS**** 
FLAG=1 

DO  50  1=1, K  -1  . 

IF((N(I)  -  N(I+1)).NE.  0)  THEN 
FLAG=0 

ELSE 
END  IF 
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*  * 


50  CONTINUE 

PRINT  *,  'FLAG  IS: ' ,  FLAG 

***//  MAIN  PROGRAM  OUTER  LOOP  START(EVERY  LOOP  IS  ONE  REPLICATION) //*** 

ZFPREP  =  0. 

ZFAILS.  =  0 
FAILS  =  0 
TOTREP  =  0 
LOOP  =  0 

10  IF(LOOP.LT.  MAXREP)  THEN 
LOOP  =  LOOP  +  1 
IF(TOTREP.  LT.  MAXRUN)  THEN 
TOTREP  =  TOTREP  +  1 

SELCTA  =  1 
SELCTB  =  2 

***//  FILL  ARRAY  KEY(REPS)  WITH  INTEGERS  1  TO  K  TO  BE  USED  AS  OUTPUT 

***//  OF  THE  SUBROUTINE  SHSORT 
DO  95  REPS=1,  MAXREP 
KEY 1( REPS)  =  REPS 
KEY2(REPS)  =  REPS 
KEY3(REPS)  =  REPS 
KEY4(REPS)  =  REPS 
95  CONTINUE 

***//  CALCULATE-'  NMAX  NOT  TO  PRINT  LONGER  THAN  THE  MAX  SAMPLE  SIZE 

***//  CALCULATE  THE  MAXIMUM  NO.  OF  TRIALS  AND  ITS  INDEX  NO.  //*** 

CALL  IMAX(N,K,NMAX,NINDX) 


***//  CALCULATE  THE  Ql'S  FROM  THE  GIVEN  MASTER  Q  AND  THE  AI'S 

DO  115  1=1,  K 

QIC  I)  =  MSTRQ  *  AI(I) 

115  CONTINUE 

DO  120  1=1,15 

DO  125  J=l,500 

UNIRV( I , J)  =  999. 

TRIALS(I,J)  =  99999 
125  CONTINUE 

120  CONTINUE 

***//  DRAW  UNIFORM  (0,1)  RV'S  AND  CONVERT  TO  BERNOULLI  TRIALS  //*** 
DO  130  1=1,  K 

CALL  SRND(SEED,  TEMP,  N(I),  MULT,  SORT) 

DO  135  J=l,  NCI) 

UNIRV(I, J)  =  TEMP(J) 

IF  (UNIRV(I, J). LE.  1  -  QIC  I) )  THEN 
TRIALS(I,J)  =  0 

ELSE 

TRIALS(I, J)  =  1 
END  IF 

135  CONTINUE 
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130  CONTINUE 


***//  CALCULATE  THE  NO.  OF  FAILURES  FOR:  EACH  COMPONENT  //*** 

DO  150  1=1,  K 
FI ( I )  =  0 
150  CONTINUE 


***//  CALCULATE  THE  F  SUB  I'S  AND  THE  GRAND  TOTAL  NO.  OF  FAILURES 
BIGF  =0 
DO  155  1=1,  K 

DO  160  J=l,  N(I) 

FI (I)  =  FI(I)  +  TRIALS(I, J) 

160  CONTINUE 

IF(FI(I).  EQ. 0)  THEN 

ZFPREP  =  ZFPREP  +  1 

ELSE 
END-  IF 

***//  CALCULATE  THE  QHAT  SUB  I'.S:  F  SUB  I'S  DIVIDED  BY  N  SUB  I* S 
QHATI(T)  =  REAL(FI(T))  7  N(I) 

BIGF  =  BIGF  +  FI(I) 

155  CONTINUE 

***//  CASE  WHERE  NO  COMPONENTS:  HAVE  ANY  FAILURES  //*** 

IF(BIGF.EO.O)  THEN 

ZFA.ILS  =  ZFAILS  +  1 
DO  200  1=1,  K 

NIREAL(I)  =  REAL(N(I)) 

200  CONTINUE 

CALL  USMNMX(NIREAL,K, INC ,NIMIN,NIMAX) 

DO  205  ALF=1,  MAXALF 

CALL  MDCHIC1  -  ALFA(ALF) ,2. ,CHISQ(ALF,LOOP) , ERROR) 

RSHAT ( ALF , LOOP ) =  1  -  (CHISQ(ALF,LOOP)  /  REAL(2  *  NIMIN)) 
IF(FLAG.EQ.  1)  THEN 

RHTSTR( ALF , LOOP)=l-( CHI SQ( ALF , LOOP)  /  REAL(2  *  N(l))) 

ELSE 
END  IF 

205  CONTINUE 

IF(PRNT.EQ.  1)  THEN 
WRITE( 1,0007) 

WRITE( 1,C1C15) 

WRITE( 1,3334)  QI 
WRITE (1,0001) 

WRITE( 1,C1C15) 

DO  141  J=1,NMAX 

WRITE(1,1111)  (UNIRV(I, J) ,  1=1,  K) 

141  CONTINUE 

WRITEC 1,0002) 

WRITE(1,C1C15) 

DO  146  J=1,NMAX 

WRITEC 1,2222)  (TRIALS(I,J) ,  1=1,  K) 

146  CONTINUE 

WRITEC 1,0003) 

WRITEC 1,C1C15) 
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VRITEC 1,3333)  FI 
WRITE( 1,0005) 

WRITE( 1 , C1C15) 

WRITE( 1,3335)  N 
WRITE( 1,0004) 

WRITE(1,C1C15) 

WRITE( 1.3334)  QHATI 

WRITE(1,’(/'  ‘THE  MAXIMUM  Q  HAT  SUB  I  IS:",  T40.  F8.5)’)  QHTMAX 
WRITE( 1, * (/' ’THE  MAXI  Q  HAT  SUB  I  IS  ELMNT  NO. :  * ,T40,I5) 1 )  QINDX 
WRITE(1, * C / * ‘THE  GRAND  TOTAL  NO.  OF  FAILURES  IS:  ,T40,  15)')  BIGF 
ELSE 
ENDIF 

DEGFR(LOOP)  =  2. 

GO  TO  10 

ELSE 

FAILS  =  FAILS  +  1 
END  IF 

***//  FIND  THE  MAX  OF  THE  INDIVIDUAL  COMPONENT  UNRELIABILITIES 
CALL  RMAX( QHATI,  K,  QHTMAX,  QINDX) 

***//  PRINT  THE  RESULT  OF  THE  MAIN  OPERATING  ELEMENTS  OF  THE  PROGRAM 

IF(PRNT.EQ. 1)  THEN 
WRITE( 1,0007) 

WRITEf 1,C1C15) 

WRITE( 1,3334)  QI 
WRITE( 1,0001) 

WRITE(1,C1C15) 

DO  140  J=1 , NMAX 

WRITE( 1,1111)  (UNIRV(I,J) ,  1=1,  K) 

140  CONTINUE 

WRITE( 1,0002) 

WRITE( 1,C1C15) 

DO  145  J=1 ,NMAX 

WRITE( 1,2222)  (TRIALS(I , J) ,  1=1,  K) 

145  CONTINUE 

WRITE( 1,0003) 

WRITE( 1 ,C1C15) 

WRITE( 1,3333)  FI 
WRITE( 1,0005) 

WRITE(1,C1C15) 

WRITE(1,3335)  N 
WRITE( 1,0004) 

WRITE(1,C1C15) 

WRITE( 1.3334)  QHATI 

WRITE(1,'(/'  'THE  MAXIMUM  Q  HAT  SUB  I  IS:",  T40.  F8.5)')  QHTMAX 
WRITE( 1 , 1 ( / " THE  MAXI  Q  HAT  SUB  I  IS  ELMNT  NO. : ' 1 ,T40,I5) ' )  QINDX 
WRITE(  1 , '  ( / "  THE  GRAND  TOTAL  NO.  OF  FAILURES  IS:",T40,  15)')  BIGF 
ELSE 
ENDIF 

***//  CALCULATE  THE  AHAT  SUB  I'S  (WEIGHT  ESTIMATES) 

SUMNAI  =  0. 

DO  165  1=1,  K 
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AHATI(I)  =  QHATI(I)  /  QHTMAX 
SUMNAI  =  SUMNAI  +  NCI)  *  AHATI(I) 

165  CONTINUE 

IF(PRNT.EQ.l)  THEN 
WRITEC 1,0006) 

WRITE ( 1 , C1C15 ) 

WRITEC 1; 3334)  AHATI 

ELSE 
END  IF 

***/-/  CALCULATE  1  REPLICATION  OF  UPPR  ALFA  C.  L.  ON  SYSTEM  RELIABILITY 
DEGFR(LOOP)  =  2  *  (1  +  BIGF) 

DO  170  ALF=1,  MAXALF 

CALL  MDCHICl  -  ALFA( ALF) ,DEGFR(LOOP) ,CHISQ(ALF, LOOP) ,  ERROR) 
QHTUPRC ALF , LOOP )  =  CHISQC ALF, LOOP)  /  (2  *  SUMNAI) 

IFCFLAG.EQ.  1)  THEN 

RHTSTR( ALF, LOOP)  =  1  -(CHISQ(ALF,LOOP)  /  REAL(2*N(1))) 

ELSE 
END  IF 

*  +  (ALF, LOOP),  ALFA(ALF) 

***//  CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  COMPNTS.  IN  SERIES 

CALL  RHTSRS( QHTUPRC ALF, LOOP),  AHATI, K,  RSHAT( ALF, LOOP)) 

*  +T40,F8. 5) ' )  RSHAT( ALF, LOOP) 

***//  CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  BRIDGE  STRUCTURE  *** 

CALL  RHTBRG( QHTUPRC  ALF , LOOP) , AHATI , K , RSHTBRC ALF , LOOP) ) 

170  CONTINUE 

***//  THIS  ELSE  AND  ENDIF  ARE  FOR  THE  TEST  AGAINST  MAXRUN  vwrftfc******* 
ELSE 

WRITEC 1, '  (  "  "./'  'PROGRAM  EXCEEDED  THE  MAX  NO.  OF  RUNS", 

+' '  ALLOWED  OF: ' ' ,16)')  TOTREP 
GOTO  9999 


END  IF 
GOTO  10 
END  IF 

WRITE(2,'(  "UNSORTED  RSHAT  1  IS:  "  ,/10(F8.  5)) '  ) 
+(RSHAT(1.L00P),  L00P=1 ,  MAXREP) 

WRITE(2,f(  "UNSORTED  RSHAT  2  IS:  "  ,/10(F8.  5) > '  ) 
+(RSHAT(2,L00P),  L00P=1,  MAXREP) 

IFCFLAG.EQ.  1)  THEN 

WRITE  ( 2,'  ("  UNSORTED  RHTSTR  1  IS:  "  ,/10(F8.  5))  ’  ) 
+(RHTSTR( 1,L00P) .  L00P=1,  MAXREP) 

WRITEC 2, * ( ‘ *  UNSORTED  RHTSTR  2  IS:  "  ,/10(F8. 5)) ’ ) 
+(RHTSTR(2,L00F) ,  L00P=1,  MAXREP) 

ELSE 
END  IF 

IFCK.EQ.5)  THEN 

WRITE(2. '("UNSORTED  RSHTBR  1  IS:  "  ,/10(F8.  5))' ) 
+( RSHTBRC 1, LOOP).  LQ0P=1,  MAXREP) 

WRITEC 2,' (''UNSORTED  RSHTBR  2  IS:  "  ,/10(F8. 5))' ) 
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noooooooo 


+(RSHTBR( 2 , LOOP) ,  L00P=1,  MAXREP) 

ELSE 
END  IF 

***//  SORT  THE  ARRAYS  OF  SYSTEM  UNRELIABILITIES(1  FOR  EACH  CONF.  LEVEL) 


DO  700  ALF=1,  MAXALF 

DO  800  REPS=1,  MAXREP 

TRANSQ(REPS)  =  QHTUPRC ALF, REPS) 
TRANSR(REPS)  =  RSHAT( ALF , REPS ) 
TRNSTR(REPS)  =  RHTSTR( ALF, REPS) 
TRANBR(REPS)  =  RSHTBRC ALF, REPS) 
800  CONTINUE 

CALL  SHS0RT(TRANSQ,KEY1, MAXREP) 

CALL  SHSORT(TRANSR , KEY2 , MAXREP ) 

CALL  SHSORT( TRNSTR , KEY3 , MAXREP ) 

CALL  SHS0RT(TRANBR,KEY4, MAXREP) 

DO  900  REPS=1,  MAXREP 

QHTUPRC ALF, REPS)  =  TRANSQ(REPS) 
RSHAT( ALF, REPS)  =  TRANSR(REPS) 
RHTSTRC ALF, REPS)  =  TRNSTR(REPS) 
RSHTBRC ALF, REPS)  =  TRANBR(REPS) 
900  CONTINUE 

700  CONTINUE 


***//  PRINT  OUTPUT  REPORT  HEADINGS  ************* 

WRITE( 1,6666) 

WRITE( 1,6667)  MAXREP 
WRITE( 1,6668)  K 
WRITEC 1,6669) 

IF(K.EQ.5)  THEN 
WRITEC 1,6699) 

ELSE 
END  IF 

WRITEC 1,6670)  MSTRQ 
WRITEC 1,6671) 

WRITEC 1,C1C15) 

WRITEC 1,3334)  AI 
WRITEC 1,0007) 

WRITEC 1,C1C15) 

WRITEC 1,3334)  QI 
WRITEC 1,0005) 

WRITEC 1,C1C15) 

WRITEC 1,3335)  N 
WRITEC 1,6674) 

WRITEC 2, 6666) 

WRITEC2,6667)  MAXREP 
WRITEC2,6668)  K 
WRITEC 2, 6669) 

IFCK.EQ.5)  THEN 
WRITEC 1,6699) 

ELSE 
END  IF 

WRITEC 2, 6670)  MSTRQ 
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C  WRITEC 2, 6671) 

C  WRITEC 2, ClC 15) 

C  WRITEC 2, 3334)  AI 

C  WRITEC 2 , 0007) 

C  WRITE(2,C1C15) 

C  WRITEC 2, 3334)  QI 

C  WRITEC 2, 0005) 

C  WRITE(2,C1C15) 

C  WRITEC 2, 3335)  N 

C  WRITE(2,6674) 

C 

C  WRITEC 2,' C" SORTED  RSHAT  1  IS:  "  ,/10CF8.5))‘) 

C  +( RSHATC 1 . REPS ) ,  REPS=1,  MAXREP) 

C  WRITEC 2, '(' 'SORTED  RSHAT  2  IS: ' ' ,/10(F8. 5)) ' ) 

C  +( RSHATC 2, REPS),  REPS=1,  MAXREP) 

C  IFCFLAG.  EQ.  1)  THEN 

C  WRITEC 2,' C" SORTED  RHTSTR  1  IS:  "  ,/10CF8. 5)) ’ ) 

C  +CRHTSTRC 1 , REPS ) .  REPS=1,  MAXREP) 

C  WRITEC2,  'C  SORTED  RHTSTR  2  IS: *  1 ,/10CF8.  5)) ’ ) 

C  +CRHTSTRC2,REPS),  REPS-1,  MAXREP) 

C  ELSE 

C  END  IF 

C  IFCK.EQ.5)  THEN 

C  WRITEC2, 'C  "SORTED  RSHTBR  1  IS:  '  ’  ,/10CF8.  5))  *  ) 

C  +CRSHTBRC1,REPS).  REPS=1,  MAXREP) 

C  WRITEC2,’Cf 'SORTED  RSHTBR  2  IS: * ' ,/10(F8. 5)) ' ) 

C  +C RSHTBRC  2 , REPS ) ,  REPS=1,  MAXREP) 

C  ELSE 

C  END  IF 

***//  COMPUTE  THE  VALUE  RS  OF  THE  TRUE  SYSTEM  REL.  FNCTN.  C SERIES  SYSTEM) 
***//  AND  FOR  THE  5 -COMPONENT  BRIDGE  STRUCTURE 
CALL  RSRSCQI ,K.RS) 

WRITEC  1,'C"  Jill  "THE  TRUE  SERIES  SYSTEM  ", 

+' 'RELIABILITY  VALUE  IS: ' ' ,T51,F8.  5) ' )  RS 
CALL  RBRIDGCQI,K,RSBRDG) 

IFCK.EQ.5)  THEN 

WRITEC  1, '  C  "  ",//// "THE  TRUE  BRIDGE  STRUCTURE  ", 

+" RELIABILITY  VALUE  IS:  "  ,T51,F8.  5) ' )  RSBRDG 
ELSE 
END  IF 

WRITEC 1,6675) 

***//  COMPUTE  THE  DIFFERENCE  'DELTAR'  BTWN.  RS  AND  RSHAT  OF  THE  THEO 
***//  RETICAL  QUANTILE  GIVEN  BY  ALFA(MUST  USE  SORTED  RSHAT  ARRAY) 

IFCFLAG.EQ.  1)  THEN 
WRITEC 1,5755) 

ELSE 
END  IF 

DO  450  ALF=1,  MAXALF 

QUANTL(ALF)  =  MAXREP  *  (1  -  ALFA(ALF)) 

DELTARCALF)  =  RS  -  RSHATC ALF,QUA1'ITL(ALF)) 

DELBRGCALF)  =  RSBRDG  -  RSHTBRC ALF, QUANTL( ALF) ) 

IFCFLAG.EQ.  1)  THEN 

DELSTRCALF)  =  RS  -  RHTSTRC ALF , QUANTLC ALF ) ) 


WRITEC 1,5555)  MAXREP,  ALFACALF),  REALC QUANTLC ALF) ) 
WRITEC 1,5656)  RHTSTR( ALF, QUANTLC ALF) ) 

WRITEC 1,5657)  DELSTR(ALF) 

ELSE 
END  IF 

IF(K.EQ.5)  THEN 

DELBRG(ALF)  =  RSBRDG  -  RSHTBRC ALF , QUANTLC ALF) ) 

WRITE( 1,5555)  MAXREP,  ALFACALF),  REALC QUANTLC ALF)) 
WRITEC 1,5666)  RSHTBRC ALF, QUANTLC ALF) ) 

WRITEC 1,5667)  DELBRGCALF) 

ELSE 
END  IF 

WRITEC1,5555)  MAXREP,  ALFACALF),  REALC QUANTLC ALF)) 

WRITEC 1,5556)  RSHATC ALF, QUANTLC ALF) ) 

WRITEC 1,5557)  DELTARCALF) 

450  CONTINUE 

PRINT*,  ' QUANTLC 1)  IS:’,  QUANTLC  1) 

PRINT*,  'QUANTLC 2)  IS:',  QUANTLC 2) 

***//  FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE  //*** 
***//  ********  RSHAT  *******  / /*** 

WRITEC 1,6676) 

DO  400  ALF=1,MAXALF 
TRUQNTCALF)  =  0 

DO  500  REPS=1,  MAXREP 

DIFFCREPS)  =  RS  -  RSHATC ALF, REPS) 

CONTINUE 

DO  600  REPS=1,  MAXREP 

IFCABS(DIFFCREPS)).  LE. EPS)  THEN 
TRUQNTCALF)  =  REPS 

WRITEC  1,'C"  "  ,  /  "  TRUE  CONFIDENCE  LIMIT  IS:", 

F8. 4) 1 ) 

C TRUQNTCALF)  /  REALC MAXREP))  *  100. 

GO  TO  620 

ELSEIFCDIFFCREPS).  LT.  0. )  THEN 
TRUQNTCALF)  =  REPS 
GO  TO  610 

ELSE 
END  IF 
CONTINUE 

IFC TRUQNTCALF).  EQ.  0.  )  THEN 
WRITEC 1,4443)  ALFACALF) 

WRITEC  1, '  C  "  ' ' 'THE  SMALLEST", 

"  DIFFERENCE  BETWEEN  RS  AND  RSHAT  IS:  ",F10.5)')  DIFFC 
MAXREP) 

ELSEIFCTRUQNTCALF).EQ.  1.  )  THEN 
WRITEC 1,4442)  ALFACALF) 

WRITEC  1,'C"  ALL  RSHAT", 

' '  AR_  GREATER  THAN  RS"  ) '  ) 

ELSEIFCABS(DIFFCTRUQNTCALF))).LE.ABSCDIFFCTRUQNTCALF)  -  1))) 
THEN 

WRITEC 1,4444)  ALFACALF), 

C TRUQNTCALF)  /  REAL( MAXREP))  *  100. 

WRITEC 1,4445)  RSHATC ALF, TRUQNTCALF) ) 

WRITEC  1,4446) 

ELSE 


500 


+ 

+ 


600 

610 


+ 

+ 

+ 

+ 

+ 
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WRITEC 1 , 4444)  ALFA(ALF) , 

+  ( (TRUQNT(ALF) -1)  /  REAL(MAXREP) )  *  100. 

WRITEC 1 ,4445)  RSHAT( ALF ,TRUQNT( ALF) - 1) 
WRITE( 1,4447) 

620  END  IF 

400  CONTINUE 


***//  FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE  //*** 
***//  ********  RSHTBR  (BRIDGE)  *******  //*** 


501 


601 

611 


621 

401 


IFCK.EQ.5)  THEN 
DO  401  ALE=1,MAXALF 
TRUQNT(ALF)  =  0 

DO  501  REPS=1,  MAXREP 

DIFF(REPS)  =  RSBRDG  -  RSHTBRC ALF, REPS) 

CONTINUE 

DO  601  REPS=1,  MAXREP 

IF(ABS(DIFF(REPS)).  LE.EPS)  THEN 
TRUQNT(ALF)  =  REPS 

WRITEC 1 , '  (  "  "  TRUE  CONFIDENCE  LIMIT  IS:  ' ' , 

+  F8. 4)  * ) 

+  (TRUQNT(ALF)  /  RE AL( MAXREP))  *  100. 

GO  TO  621 

ELSEIF(DIFF(REPS).  LT.  0.  )  THEN 
TRUQNT(ALF)  =  REPS 
GO  TO  611 

ELSE 
END  IF 
CONTINUE 

IF(TRUQNT(ALF). EQ. 0. )  THEN 
WRITEC 1,4443)  ALFA(ALF) 

WRITEC  1 , '  (  1  '  ",/!,THE  SMALLEST", 

+  ' '  DIFFERENCE  BETWEEN  RSBRDG  AND  RSHTBR  IS: 1  * , 

+  F10. 5) ' )  DIFF(MAXREP) 

ELSEIF(TRUQNT(ALF).EQ.  1. )  THEN 
WRITEC 1,4442)  ALFA(ALF) 

WRITEC  1-, '  (  ' '  ", /"ALL  RSHTBR* ’, 

+  * '  ARE  GREATER  THAN  RSBRDG* ' ) * ) 

ELSEIF(ABS(DIFF(TRUQNT(ALF))). LE. ABS(DIFF(TRUQNT(ALF)  -  1))) 
+  THEN 

WRITEC 1,4444)  ALFA(ALF) , 

+  (TRUQNT(ALF)  /  REAL( MAXREP))  *  100. 

WRITEC 1,4449)  RSHTBR(ALF,TRUQNT(ALF)) 

WRITEC 1,4446) 

ELSE 

WRITEC 1,4444)  ALFA(ALF) , 

+  CCTRUQNT(ALF)-l)  /  REAL(MAXREP))  *  100. 

WRITEC 1,4449)  RSHTBRC ALF , TRUQNTC ALF ) - 1 ) 

WRITEC 1,4447) 

END  IF 
CONTINUE 
ELSE 
END  IF 
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***//  FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE  //*** 
***y/  ********  RHTSTR  ********  j  j-i-t-k 


IFCFEAG. EQ. 1)  THEN 
DO  4400  ALF=1,MAXALF 
TRUQNTC ALF)  =0 

DO  5500  REPS=1,  MAXREP 

DIFF(REPS)  =  RS  -  RHTSTR( ALF , REPS ) 

5500  CONTINUE 

DO  6600  REPS=1,  MAXREP 

IF(ABS(DIFF(REPS)).LE. EPS)  THEN 
TRUQNTC ALF)  =  REPS 

WRITE( 1 > ' ( ’ ’  "  ,/* ‘TRUE  CONFIDENCE  LIMIT  IS:", 

+  F8.4)') 

+  (TRUQNT(ALF)  /  REALC MAXREP))  *  100. 

GO  TO  6620 

ELSEIF(DIFFCREPS).  LT.  0.  )  THEN 
TRUQNT(ALF)  =  REPS 
GO  TO  6610 

ELSE 
END  IF 

6600  CONTINUE 

6610  IF(TRUQNT(ALF).EQ.  0.  )  THEN 

WRITE( 1,4443)  ALFA(ALF) 

WRITEC1, ' ( ' '  ' ’ 'THE  SMALLEST' ' , 

+  ' '  DIFFERENCE  BETWEEN  RS  AND  RHTSTR  IS:  ' ' , 

+  F9. 5) ' )  DIFF( MAXREP) 

ELSEIF(TRUQNT(ALF).EQ. 1.  )  THEN 
WRITE( 1,4442)  ALFA(ALF) 

WRITEC 1, '  (  "  ",/"  ALL  RHTSTR", 

+  "ARE  GREATER  THAN  RS"  ) '  ) 

ELSEIF(ABS(DIFF(TRUQNT(ALF))). LE. ABS(DIFF(TRUQNT(ALF)  -  1))) 
+  THEN 

WRITE( 1,4444)  ALFA(ALF), 

+  (TRUQNT(ALF)  /  REAL(MAXREP) )  *  100. 

WRITEC 1,4448)  RHTSTRC ALF , TRUQNTC ALF ) ) 

WRITEC 1,4446) 

ELSE 

WRITEC 1,4444)  ALFACALF), 

+  CCTRUQNTCALF)-!)  /  REALC MAXREP))  *  100. 

WRITEC 1,4448)  RHTSTRC ALF, TRUQNTC ALF) -1) 

WRITEC 1,4447) 

6620  END  IF 

4400  CONTINUE 
ELSE 
END  IF 

***//  PRINT  THE  ARRAYS  PERTINENT  TO  THE  OUPUT  OF  EACH  REPLICATION  ***** 

IFCPRNT.EQ. 1)  THEN 
1  =  1 

185  WRITEC l.REPSHD)  ALFAC SELCTA) .  ALFA(SELCTA) , 

+ALFACSELCTB) , ALFAC SELCTB) , ALFAC SELCTA) , ALFAC SELCTA) , ALFAC SELCTB) , 
+ALFACSELCTB) 

175  IFC I. GE.C MAXREP  +  1))  THEN 
GOTO  180 
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ELSE 


IF(  (I. EQ.  71).  OR.  (I.  EQ.  211).  OR.  (I.  EQ:  351),  OR.  (I.  EQ.  491).  OR. 

+  (I.  EQ.  631).  OR.  (I.  EQ.  771).  OR.  (I.  EQ.  911).  OR.  (I.  EQ.  1051)  )  THEN 

I  =  I  +  70 
WRITEd, '("+")') 

GOTO  185 

ELSE 

WRITE(1,3336)  I,  INT(DEGFR(I)) ,  CHISQ(1,I),  QHTUPR(1,I), 

+  CHISQC2, I) ,  QHTUPR(2,I) 

END  IF 

IF(I  +  70. LE.MAXREP)  THEN 

WRITE ( 1, 3337 )  1+70 , INT(DEGFR( 1+70) ) ,CHISQ( 1 , 1+70) , 

+  QHTUPR( 1 , 1+7  0 ) , CHI SQ( 2 , 1+70 ) , QHTUPR( 2 ,1+70) 

ELSE 
END  IF 
1  =  1  +  1 
GOTO  175 
180  END  IF 
ELSE 
ENDIF 

9999  WRITE(1,' (' 'THE  TOTAL  NO  OF  REPS  WAS:* ',18)')  TOTREP 

WRITE(1, '("THE  TOTAL  NO  OF  EFFECTIVE  REPS  WAS:  "18)')  LOOP 
WRITEd, ’("THE  TOTAL  NO  OF  NO  FAILURE  RUNS  WAS:*', 18)')  ZFAILS 
WRITE(1, ' ( ' 'AVERAGE  NO.  OF  COMPONENTS  PER  REPLICATION  WITH  ' ' , 

+' 'NO  FAILURES: ' ' ,F5. 2) ' )  ZFPREP  /  MAXREP 
WRITE(1, '("THE  TOTAL  NO  OF  RUNS  WITH  FAILURES  WAS:", 18)')  FAILS 
0008  FORMAT  (/  3X.'C  l',5X ,'C  2', 

+5X , 1 C  3' ,5X,  C  4' ,5X,  C  5',5X,'C  6',5X,'C  7’,5X, 

+'C  8* ,5X, ' C  9 ' ,5X, ' C  10 ' ,4X, ' C  ll’ ,4X, 

+'C  12' ,4X, ' C  13',4X,'C  14'  4X,'C  15') 

0009  FORMAT( / IX , ' REP  NO' ,2X  ’OF' ,1X, 'CHISQR( ' ,F4.  3, ’ )’ ,1X. 

+' QHTUPR( ' ,F4.  3, ' )’ .IX, 'CHISQR( ' ,F4. 3, ' ) ' ,1X, 'QHTUPR( ' ,F4. 3, ’ ) ' , 
+2X , ' REP  NO' ,2X, 'DF  ,1X, ' CHISQR( ' ,F4.  3 . ' )  , IX, 

+'QHTUPR( ' ,F4. 3, ' ) ' ,1X, 'CHISQR( ’ ,F4. 3, ' ) ' ,1X, 'QHTUPR( ' ,F4.  3, ' ) ' /) 
0001  FORMAT  (///’UNIFORM  RANDOM  DEVIATES  ARE:  ') 

0002  FORMAT  (///’BERNOULLI  TRIALS  ARE:  ') 

0003  FORMAT  (///'TOTAL  NO.  OF  FAILURES  FOR  EACH  COMPONENT: ') 

0004  FORMAT  (///'ESTIMATED  UNRELIABILITY  FOR  EACH  COMPONENT: ' ) 

0005  FORMAT  (///’TOTAL  NUMBER  OF  MISSION  TESTS:  ') 

0006  FORMAT  (///'ESTIMATED  WEIGHTS  FOR  EACH  COMPONENT: ') 

0007  FORMAT  (///’ Q  I  FOR  EACH  COMPONENT:  ' ) 

1111  FORMAT  (15F8.5) 


2222  FORMAT 

3333  FORMAT 

3334  FORMAT 

3335  FORMAT 

3336  FORMAT 

3337  FORMAT 

4442  FORMAT 
+' LIMIT 

4443  FORMAT 
+' LIMIT 

4444  FORMAT 
+' LIMIT 


(/IX, 15(14, 4X)) 

(/IX, 15(14, 4X)) 

(/15F8.5) 

(/IX, 15(14, 4X)) 

(T3.I4,T9,I3,T13,F11.  5,T27,F8.  5,T39,F11.  5,T53,F8.  5) 

(V  ,T67.U,T73,I3,T77,F11.5.T91,F8.5,T103,F11.5,T117,F8.5) 
('  ' ,///'THE  RESULTING  (1  -  ,F4. 3, ’ )  CONFIDENCE  ', 

IS:  '  ,T50, '  00.000  ') 

('  ' ,///'THE  RESULTING  (1  -  ' ,F4.  3,')  CONFIDENCE  ', 

IS: ' ,T50, ' 100.  0000') 

('  ',///' THE  RESULTING  (1  -  ',F4.3,')  CONFIDENCE 
IS: ' ,T50,F8.  4) 
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4445  FORMAT  ( ' 

4446  FORMAT  (' 

4447  FORMAT  (' 

4448  FORMAT  (' 

4449  FORMAT  (’ 

5555  FORMAT  (' 

5556  FORMAT  (' 

5557  FORMAT  (' 

5656  FORMAT  ( ' 

5666  FORMAT  (' 

5657  FORMAT  (' 

5667  FORMAT  ( ' 
5755  FORMAT  (’ 


'RHTSTR' 
6666  FORMAT  ('  + 
+’ 


, / 1  THE  RSHAT  VALUE  CLOSEST  TO  RS  IS:  ',T51,F8.5) 
./'(FIRST  NEGATIVE  DIFFERENCE) 1 ) 

./’(ELEMENT  PRECEEDING  FIRST  NEGATIVE  DIFFERENCE)') 
./'THE  RHTSTR  VALUE  CLOSEST  TO  RS  IS:  ’.T51.F8.5) 

./'THE  RSHTBR  VALUE  CLOSEST  TO  RSBRDG  IS:  ’.T51.F8.5) 
.///'THE  ' ,I4,'(1-' ,F4.3,')  QUANTILE  IS:  ' .T49.F8. 3) 
./'THE  VALUE  OF  RSHAT  FOR  THAT  QUANTILE  IS:  ' .T51.F8.  5) 
./'THE  DIFFERENCE (RS  -  RSHAT)  IS:  ' .T51.F8.  5) 

./'THE  VALUE  OF  RHTSTR  FOR  THAT  QUANTILE  IS:  ' .T51.F8. 5) 
./'THE  VALUE  OF  RSHTBR  FOR  THAT  QUANTILE  IS:  '.T51.F8.  5) 
./'THE  DIFFERENCE (RS  -  RHTSTR)  IS: ' .T51.F8. 5) 

./'THE  DIFFERENCES  -  RSHTBR)  IS: ' .T51.F8. 5) 

.///'SINCE  THE  NO.  OF  MISSION  TESTS  IS  THE  SAME  FOR' , 


+'  ALL  COMPONENTS  THE  CLOSED  FORM:  SERIES  SYSTEM  RELIABILITY 


IS  COMPUTED') 


*  RUN  INPUT  SETTINGS 

A***-**'  ) 

.//'NUMBER  OF  REPLICATIONS: ' .T50.I4) 

.//’NUMBER  OF  COMPONENTS:  ' .T50.I4) 

, // ’ SYSTEM  RELIABILITY  FUNCTION:  ' ,T50 , ' SERIES ' ) 
.//'SYSTEM  RELIABILITY  FUNCTION:  ' ,T50, ' BRIDGE' ) 
.//'MASTER  UNRELIABILITY  USED: '.T50.F8.5) 


6667  FORMAT  (' 

6668  FORMAT  ( ' 

6669  FORMAT  (' 

6699  FORMAT  ( ' 

6670  FORMAT  (' 

6671  FORMAT  ('  './/'INPUT  WEIGHTS(A  SUB  l"S):') 

6674  FORMAT  ('+' ,///' 

+'**R  UNRESULT 

4- 1  AAAAAAAAAAAAAA 1  ) 

6675  FORMAT  (' +',///' aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' 
+'  ESTIMATE  ERRORS  ****aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ' } ’ 

+ 1 AAAAAAAAAAAAAA ' ) 

6676  FORMAT  ( *  4- 1 . /// * aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 1 
+'  TRUE  CONFIDENCE  LIMITS 

+ 1 AAAAAAAAAAAAAA ’ ) 

END 
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APPENDIX  H.  FORTRAN  CODE  FOR  ALTERNATE  PROCEDURE  B 
FOR  ESTIMATING  THE  LOWER  CONFIDENCE  LIMIT  FOR  SELECTED 

SYSTEMS 


PROGRAM  ZFYSCN 

irirkirMrHtirMrMriHHrkirMckicickirk  IcMcMrkrMcMcMrMcklrMt  IctrMHck  itirititicititit'kiriticifJrititirirkititit 
*  * 


*  TITLE:  BINOMIAL  INTERVAL  ESTIMATION  PROCEDURE  * 

*  ZERO  FAILURES  ALLOWED;  NO  SCALING  * 

*  AUTHOR:  E.  F.  BELLINI,  LT,  USN  * 

*  MODIFIED  BY:  LT. VALERIE  A.  COVINGTON, USN  (MAR  90) 

*  DATE:  NOV  09  * 

*  * 

*  THIS  PROGRAM  COMPUTES  THE  TRUE  CONFIDENCE  LEVEL  FOR  THE  ESTIMATE  * 

*  RELIABILITY  OF  A  SERIES  AND  BRIDGE  SYSTEM  GIVEN  THE  RELIABILITY  * 

*  OF  THEIR  COMPONENTS  * 

*  * 


*  IN  ITS  PRESENT  CONFIGURATION  THIS  PROGRAM  IS  SET  UP  TO  RUN  12  * 

*  TIMES  EACH  TIME  PRODUCING  1000  REPLICATIONS  USING  A  DIFFERENT  * 

*  SET  OF  INPUT  DATA.  RUN  THE  PROGRAM  FROM  CMS  BY  TYPING  'B1  EXEC1.* 

*  THE  REXX  EXEC  PROGRAM  * 

*  *B1*  CALLS  THE  INPUT  FILES  TO  BE  READ  AND  NAMES  THE  12  OUTPUT  * 

*  FILES  RESULTING  FROM  THE  12  CONSECUTIVE  RUNS.  BY  EDITING  THE  * 

*  INDEX  COUNTERS  I,  J,  K  OF  THE  ' Bl*  EXEC  ONE  CAN  RUN  ANY  USER-  * 

*  SPECIFIC  RUN  FROM  JUST  ONE  RUN  TO  ALL  12.  * 

*  * 

*  VARIABLES  USED  * 

*  * 


* 

* 

* 

* 

it 

it 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


AHATI 

AI 

ALFA 

BIGF 

CHISQ 

C1C15 

DEGFR 

DELBRG 

DELSTR 

DELTAR 

DIFF 

EPS 

ERROR 

FAILS 

FI 

FLAG 

INC 

KEY1 

KEY2 

KEY  3 

KEY4 

KK 

LOOP 

MAXALF 


WEIGHT  ESTIMATES  FOR  EACH  COMPONENT  * 
INPUT  WEIGHTS  FOR  EACH  COMPONENT  * 
LEVELS  OF  SIGNIFICANCE  * 
TOTAL  NO.  OF  FAILURES  FOR  EACH  REPLICATION  * 
CHI-SQUARE  RANDOM  VARIABLE  VALUE  * 
FORMAT  LABEL  * 
DEGREES  OF  FREEDOM  * 
DIFFERENCE  FOR  BRIDGE  SYSTEM  * 
DIFFERENCE  FOR  SERIES  SYSTEM-  CLOSED  FORM  * 
DIFFERENCE  FOR  SERIES  SYSTEM  * 
DIFFERENCE  (TRUE  REL.  -  ESTIMATED  REL. )  * 
SMALL  QUANTITY( CONSTANT)  * 
PARAMETER  FOR  IMSL  ROUTINE  * 
COUNTS  NO.  OF  REPLICATIONS  WITH  AT  LST.  1  FAILURE  * 
NO.  OF  FAILURES  FOR  EACH  COMPONENT( ALL  MISSION  TST)* 
1  IF  ALL  COMP.  HAVE  SAME  NO.  OF  MISSION  TESTS  * 
INCREMENT  STEP  SIZE  FOR  ROUTINE  USMNMX  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 
ARRAY  OF  INDECES  FOR  ROUTINE  SHSORT  * 


ARRAY  SIZING  PARAMETER  FOR  THE  MAX  NO  OF  COMPONENTS* 
COUNTS  NO.  OF  REPLICATION  PERFORMED  * 
MAX  NO.  OF  SIGNIFICANT  LEVELS  DESIRED(ARRAY  SIZING)* 
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* 

MAXREP  : 

MAX  NO.  OF  REPLICATIONS 

* 

* 

MAXRUN  : 

MAX  NO.  OF  PROGRAM  ITERATIONS  ALLOWED 

■k 

* 

MSTRQ  : 

MASTER  UNRELIABILITYCUSED  WITH  Al'S  TO  CALC.  Ql’S) 

* 

* 

MULT  : 

MULTIPLIER  FOR  RANDOM  NO.  GENERATOR  SRND 

* 

* 

N  : 

NO.  OF  MISSION  TEST  FOR  EACH  COMPONENT  * 

* 

NIMAX  : 

MAX  NO.  OF  MISSION  TESTS 

* 

* 

NIMIM  : 

MIN  NO.  OF  MISSION  TESTS 

* 

* 

NINDX  : 

INDEX  NO.  OF  MAX  NO.  OF  MISSION  TESTS 

* 

* 

HIREAL  : 

NO.  OF  MISSION  TESTS  TRANSFORMED  TO  REAL 

* 

* 

NMAX  : 

MAX  NO.  OF  MISSION  TESTS  FOR  OUTPUT  CONTROL 

* 

* 

NPRNT  : 

FLAG  FOR  DETAILED  REPORT  OUTPUT 

* 

* 

PRNT  : 

SAME  AS  ABOVE (PARAMETER) 

* 

* 

QHATI  : 

UNRELIABILITY  ESTIMATES  FOR  EACH  COMPONENT 

* 

* 

QHTMAX  : 

LARGEST  QHATI 

* 

A 

QHTUPR  : 

UPPER  LIMIT  ON  SYSTEM  UNRELIABILITY 

* 

A 

QI  : 

INPUT  UNRELIABILIY  FOR  EACH  COMPONENT 

* 

A 

QINDX  : 

INDEX 

* 

A 

QUANTL  : 

QUANTILE 

* 

A 

REPSHD  : 

REPLICATIONS  HEADING  FORMAT  NUMBER 

* 

A 

RHTSTR  : 

SERIES  SYSTEM  RELIABILITY  ESTIMATE (CLOSED  FORM) 

* 

A 

RS  : 

TRUE  SERIES  SYSTEM  RELIABILITY 

* 

A 

RSBRDG  : 

TRUE  BRIDGE  SYSTEM  RELIABILITY 

* 

A 

RSHAT  : 

SERIES  SYSTEM  RELIABILITY  ESTIMATE 

* 

A 

RSHTBR  : 

BRIDGE  SYSTEM  RELIABILITY  ESTIMATE 

* 

A 

SEED  : 

PARAMETER 

* 

A 

SELCTA  : 

SIGNIFICANCE  LEVEL  SELECTION 

* 

A 

SELCTB  : 

SIGNIFICANCE  LEVEL  SELECTION 

* 

A 

SORT  : 

PARAMETER  FOR  ROUTINE  SRND 

* 

A 

SUMNAI  : 

SUM  OF  THE  PRODUCT  OF  NI'S  AND  Al'S 

* 

A 

TEMP  : 

TEMPORARY  ARRAY 

* 

A 

TOTREP  : 

TOTAL  NUMBER  OF  PROGRAM  ITERATIONS 

* 

A 

TRANBR  : 

TEMPORARY  ARRAY 

* 

A 

TRANSQ  : 

TEMPORARY  ARRAY 

TC 

A 

TRANSR  : 

TEMPORARY  ARRAY 

* 

A 

TRIALS  : 

BERNOULLI  TRIALS  ARRAY  (2-DIM) 

* 

A 

TRNSTR  : 

TEMPORARY  ARRAY 

* 

A 

TRUQNT  : 

TRUE  QUANTILE 

* 

A 

UNIRV  : 

UNIFORM  RANDOM  DEVIATES  (2 -DIM) 

* 

A 

ZFAILS  : 

TOTAL  NUMBER  OF  REPLICATIONS  WITH  ZERO  FAILURES 

* 

A 

A 

ZFPREP  : 

NO.  OF  COMPNTS.  WITH  ZERO  FAILURES  PER  REPLICATION 

* 

* 

PARAMETER  (KK=10,MAXALF=2,NPRNT=0) 

PARAMETER  (MAXREP=1000,  MAXRUN=2000,  EPS=.  000001) 

RE AIM  UNIRV( 15 , 1000) ,TEMP( 1000) ,QI(KK) ,AI(KK) , AHATI(KK) 

REAL*4  QHATI(KK),  NMAX,  NNMAX,  QHTMAX,  CHISQR(5,5),  ALFA(MAXALF) 
REAL*4  DF(5) ,AALFA(5) ,SUMNAI,RSHAT(MAXALF,MAXREP) ,RS 
REAL*4  KEYl(MAXREP) ,KEY2(MAXREP) ,KEY3(MAXREP) ,TRNSTR(MAXREP) 
REAL*4  DEGFR(MAXREP),  QHTUPR(MAXALF,MAXREP) ,CHISQ(MAXALF,MAXREP) 
REAL*4  QUPAl(MAXREP) ,  QUPA2(MAXREP) ,RHTSTR(MAXALF,MAXREP) 

REAL*4  DELTAR(MAXALF) ,  TRANSQ(MAXREP) ,TRANSR(MAXREP) ,DIFF(MAXREP) 
REAL*4  DELSTR(MAXALF) ,NIMIN,NIMAX,NIREAL(KK) 

REAL*4  RSHTBR(MAXALF,MAXREPJ ,DELBRG(MAXALF) ,KEY4(MAXREP) 

REAM  TRANBR(MAXREP),  RSBRDG  ,MSTRQ 
REAM  ZFPREP 
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REAL*4  RSHATI(KK) ,SI(KK),QHATIU(KK) 

REAL*4  MXQHAT , RI ( KK ) , SUMRN 

REAL*4  QHATMU(MAXALF) ,CHIVAL(MAXALF) ,P(KK) ,PTEMP( 10) 

INTEGER  SEED,  MULT,  SORT,  TRIALSC 15, 1000),  BIGF,  FI(KK) ,  N(KK) 
INTEGER  NINDX,  QINDX,  ERROR,  REPS,  SELCTA,  SELCTK,  TOTREP 
INTEGER  C1C15 ,  REPSHD,  SELCTB ,  ALF,  FLAG,  LOOP, PRNT,HFI 
INTEGER  QUANTL(MAXALF) ,  TRUQNT(MAXALF) ,ZFAILS, FAILS, INC 

CHARACTER*8  LOOPSO(MAXREP) 

DATA  SEED/123457/,  MULT/1/,  INC/1/ 

DATA  AALFA/.  01 , .  05', .  9 , .  95 , .  99/ ,  DF/1,5 , 10, 30,40/ 

DATA  ALFA/.  20,. 050/ 

DATA  SORT/O/ 

ASSIGN  8  TO  C1C15 
ASSIGN  9  TO  REPSHD 

*  CALL  COMPRS 
PRNT  =  NPRNT 


DO  12  1=1, KK 

AI(I)  =  9999. 

N( I)  =  99999999 
12  CONTINUE 

READ(03,*)K,MSTRQ 

DO  11  1=1, K 
READ(03,*)  AI(I) ,N(I) 
11  CONTINUE 


IFCK.NE. 5)  THEN 

WRITE(1,’(" WARNING:  BRIDGE  STRUCTURE  ", 
+'  'ONLY  USES  THE  FIRST  5  COMPONENTS")’) 

ELSE 
END  IF 


***INITIALIZE  THE  QHTUPR  ARRAY  OF  UNRELIABILITY  REPLICATIONS,  *** 

*  RSHAT  ARRAY  OF  ESTIMATE  SYSTEM  RELIABILITY  REPLICATIONS  * 

*  AND  RHTSTR  ARRAY  OF  EST.  SYST.  REL.  FOR  A  SERIES  SYST  WHEN  * 

***ALL  THE  COMPONENT  MISSION  TESTS  ARE  EQUAL  IN  NUMBER  *** 


DO  172  ALF=1,MAXALF 

DO  173  REPS=1,MAXREP 

QHTUPR( ALF, REPS)  =  0. 

RSHAT( ALF, REPS)  =  0. 

RHTSTR( ALF, REPS)  =  0. 

RSHTBRC ALF, REPS)  =  0. 

LOOPSO(REPS)='  ******  * 

173  CONTINUE 

172  CONTINUE 

***SET  FLAG  TO  1  IF  ALL  COMPONENTS  HAVE  SAME  NO.  OF  MISSION  TESTS**** 


104 


FLAG=1 

DO  50  1=1, K  -1 

IF( (N( I)  -  N(I+l)).NE.O)  THEN 
FLAG=0 

ELSE 
END  IF 
50  CONTINUE 

PRINT  *,  'FLAG  IS: ' ,  FLAG 

***MAIN  PROGRAM  OUTER  LOOP  START( EVERY  LOOP  IS  ONE  REPLICATION)*** 

ZFPREP  =  0. 

ZFAILS  =  0 
FAILS  =  0 
TOTREP  =  0 
LOOP  =  0 

10  IF(LOOP.LT.  MAXREP)  THEN 
LOOP  =  LOOP  +  1 
IFCTOTREP.LT.  MAXRUN)  THEN 
TOTREP  =  TOTREP  +  1 

SELCTA  =  1 
SELCTB  =  2 

***FILL  ARRAY  KEYCREPS)  WITH  INTEGERS  1  TO  K  TO  BE  USED  AS  OUTPUT*** 
***0F  THE  SUBROUTINE  SHSORT  *** 

DO  95  REPS=1,  MAXREP 
KEY1CREPS)  =  REPS 
KEY2CREPS)  =  REPS 
KEY3CREPS)  =  REPS 
KEY4CREPS)  =  REPS 
95  CONTINUE 

***CALCULATE  NMAX  NOT  TO  PRINT  LONGER  THAN  THE  MAX  SAMPLE  SIZE*** 
***CALCULATE  THE  MAXIMUM  NO.  OF  TRIALS  AND  ITS  INDEX  NO.*** 

CALL  IMAX(N,K,NMAX,NINDX) 


***CALCULATE  THE  QI'S  FROM  THE  GIVEN  MASTER  Q  AND  THE  Al'S*** 

DO  115  1=1,  K 

QIC  I)  =  MSTRQ  *  AICI) 

115  CONTINUE 

DO  120  1=1,15 

DO  125  J=l,500 

UNIRVCI,J)  =  999. 

TRIALS(I,J)  =  99999 
125  CONTINUE 

120  CONTINUE 

***  DRAW  UNIFORM  CO, 1)  RV'S  AND  CONVERT  TO  BERNOULLI  TRIALS*** 
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DO  130  1=1,  K 

CALL  SRND( SEED,  TEMP,  N( I) ,  MULT,  SORT) 
DO  135  J=l,  N(T) 

UNIRV( I ,  J)  =  TEMP(J) 

IF  (UNIRV( I, J).  LE.  1  -  QI(D)  THEN 
TR1'ALS(I,J)  =  0 

ELSE 

TRIALS ( I , J)  =  1 
END  IF 

135  CONTINUE 
130  CONTINUE 


***CALCULATE  THE  NO.  OF  FAILURES  FOR  EACH  COMPONENT*** 

DO  150  1=1,  K 
FI(I)  =  0 
150  CONTINUE 
IONECT  =  0 

***CALCULATE  THE  F  SUB  I'S  AND  THE  GRAND  TOTAL  NO.  OF  FAILURES*** 
BIGF  =  0 
DO  155  1=1,  K 

DO  160  J=l,  N(I) 

:  FI(I)  =  FI(I)  +  TRIALS(I.J) 

160  CONTINUE 
IF(FI(I). EQ. 0)  THEN 

ZFPREP  =  ZFPREP  +  1 

ELSE 
END  IF 

***CALCULATE  THE  QHAT  SUB  I'S:  F  SUB  I’S  DIVIDED  BY  N  SUB  I'S*** 
QHATI(I)  =  REAL(FI(I))  /  N( I) 

BIGF  =  BIGF  +  FI(I) 

155  CONTINUE 

IF  (FI(2)  .EQ.  0)  THEN 
ZFPREP=ZFPREP  -  1 

ELSE 

ENDIF 

BIGF=BIGF-FI( 2) 

FI(2)  =  0 
DO  161  1=2, N(2) 

HFI=0 

DO  163  J=l,2 

CALL  SRND(SEED,  PTEMP(J),  N(2),  MULT,  SORT) 

IF  (PTEMP(J)  .GT.  1-QI(2)**.5)  THEN 
HFI=  HFI+1 
ENDIF 

163  CONTINUE 

IF  (HFI  .EQ.  2)  THEN 
FI(2)  =  FI(2)  +1 
END'iF 

161  CONTINUE 

QHATK2)  =  REAL(FI(2))  /  N(2) 

BIGF=  BIGF  +  FI(2) 

IF  (FI(2)  .EQ.  0)  THEN 
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ZFPREP  =  ZFPREP  +  1 
END  I  F 


***COUNTS  NUMBER  OF  COMPONENTS  THAT  HAV?  -'AILED*** 
DO  136  1=1, K 

IF  (FI(I)  .NE.  0)  IONECT=IOK'-/.W. 

136  CONTINUE 

***CASE  WHERE  NO  COMPONENTS  HAVE  ANY  FAT,  ORES*** 


IF(BIGF.EQ.O)  THEN 

LOOPSO(LOOP)=’  *ZERO*  ' 

***  SERIES  ESTIMATE  MODIFICATION  (NO.  01'  FAILURES  IRRELEVANT)*** 
DO  152  1=1, K 

SI(I)  =  RE  AL(  N(  I )  )  -REAx.(FI  (T  )  ) 
RSHATI(I)=SI(I)/(SI(T)+(REAL(FI(I))+1. ) 

+  *  FIN(.  50,2.  *(REAL(FI(I))+1.  )  ,£*SI(I) )) 

QHATIU(I)=1.  -RSHATI(I) 

152  CONTINUE 

MXQHAT=0. 

DO  154  1=1, K 

IF  (QHATIU(I)  .GT.  MXQHAT)  THEN 
MXQHAT=  QHATIU(I) 

ENDIF 

154  CONTINUE 

DO  156  ALF=1,MAXALF 

CALL  MDCHICALFA(ALF) ,2*( 1. +REAL(BIGF)) ,CHIVAL(ALF) , ERROR) 
SUMRN=0. 

DO  157  1=1, K 

RI( I )=QHATIU( I ) /MXQHAT 
SUMRN=SUMRN+RI( I)*REAL(N( I) ) 

157  CONTINUE 

QHATMUC ALF)=CHIVAL( ALF) / ( 2*SUMRN) 

156  CONTINUE 

DO  158  ALF=1,MAXALF 
RSHAT(ALF,L00P)=1. 

DO  159  1=1, K 

RSHAT(ALF,L00P)=RSHAT(ALF,L00P)*(1. -(RI(I)*QHATMU(ALF))) 
IF(FLAG.EQ.  1)  THEN 

RHTSTR( ALF, LOOP)  =  RSHAT( ALF, LOOP) 

ELSE 
END  IF 
159  CONTINUE 

158  CONTINUE 

***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  BRIDGE  STRUCTURE*-’** 

DO  141  ALF=1,  MAXALF 
DO  142  1=1 ,K 
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P(T.)=1-RI(I)*QHATMU(ALF) 

142  CONTINUE 

RSHTRR( ALF, LOOP ) =P( 1 ) *P ( 4 ) +P ( 2 ) *P ( 5 ) +P ( 1)*P(3)* 
C  P(;5)+P(2)*P(3)*P(4)-P(  l)*P(2)*Pf-3)*P(4)-P(  1)* 

C  P(2)*P(3)*P(5)-P(.t)*P(  2)*P(4)*P^5)  -P( 1)*P(3)* 

C  P(4)*P(5)“P(2)*P(3)*P(4)*P(5)+2*P(1)*P(2)* 

C  P(3)*P(4)*F(5) 

141  CONTINUE 

ZFAILS  =  ZFAILS  +  1 
DEGFR(LOOP1  =  2. 

GO  TO  10 

els: 

FAILS  =  FAILS  +  1 
END  IF 


***FIND  THE  MAX  OF  THE  INDIVIDUAL  COMPONENT  UNRELIABILITIES’-'** 


CALL  RMAXCQHATI,  K,  QHTMAX,  QINDX) 


***CALCULATE  THE  AHAT  SUB  I'S  (WEIGHT1  ESTIMATES)*** 

SUMNAI  =  0. 

DO  165  1=1,  K 

AHATI(I)  ■•=  QHATI(I)  /  QHTMAX 
SUMNAI  =  SUMNAI  +  N(I)  *  AHATI(I) 

165  CONTINUE 

***1  FAILURE  ONLY  SERIES  SYS T  '«** 

IF  ( IONF.CT  .EQ.  1)  THEN 
LOOPSO(LOOP)=’  *ONE*  ' 

ENDIF 

***CALCULATE  1  REPLICATION  OF  UPPR  ALFA  C. L,  ON  SYSTEM  RELIABILITY*** 
SJXGFR(LOOP)  =  2  *  (1  +  BIGF) 

***SERT;S  ESTIMATE  MODIFICATION  (NO.  OF  FAILURES  IRRELEVANT)*** 

DO  162  1=1, K 

SI(I)  =  REAL(  N(  1/  }  -RSA?.:(  FI  ( I )  ) 

RSHATI( I)=SI( I)/(S1 ( I)+(REAL(FI(I) )+l. ) 

+  *  FaN(. 50,2.*(REAL(FI(I))+1. ) ,2*SI(I))) 

QHATIU(I)=1. -RSHATI(I) 

162  CONTINUE 

MXQHAT=0. 

DO  164  1=1, K 

IF  (QHATIU(I)  .GT.  MXQHAT)  THEN 
MXQHAT  =  QHATIU(I) 

ENDIF 

164  CONTINUE 
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DO  166  ALF=1 ,MAXALF 

CALL  MDCHI(ALFA( ALF)  ,2*(  1.  +REAL(BIGF)  ),CHIVAL(  ALF):, ERROR) 
SUMRN=0. 

DO  167  I=1,K 

R-I  ( I ) =QHATIU(  I ) /MXQHAT 
SUMRN=SUMRN4RI( I)*REAL(N( I) ) 

167  CONTINUE 

QHATMUC ALF)=CHIVAL( ALF) / ( 2*SUMRN) 

166  CONTINUE 

DO  168  ALF=1,MAXALF 
RSHAT( ALF , LOOP ) = 1 . 

DO  169  1=1  ,K 

RSHAT( ALF , LOOP ) =RSHAT( ALF , LOOP ) *( 1. - ( RI ( I )*QHATMU( ALF ) ) ) 
IFCFLAG.EQ. 1)  THEN 

RHTSTRC ALF, LOOP)  =  RSHATC ALF, LOOP) 

ELSE 
END  IF 
169  CONTINUE 

168  CONTINUE 


***CALCULATE  VALUE  OF  THE  SYSTEM  RELIABILITY  FOR  BRIDGE  STRUCTURE*** 

DO  170  ALF=1,  MAXALF 
DO  206  1=1, K 

P(I)=1-RI( I)*QHATMU(ALF) 

206  CONTINUE 

RSHTBR(ALF,L00P)=P(l)*P(4)+P(2)*P(5>yPfl)*P(3)* 

C  P(5)+P(2)*P(3)*P(4)-P(1)*P(2)*P(3)*P(4)-P(1)* 

C  P(2)*P(3)*P(5)-P(1)*P(2)*P(4)*P(5)-P(1)*P(3)* 

C  P(4)*P(5)-P(2)*P(3)*P(4)*P(5)+2*P(1)*P(2)* 

C  P(3)*P(4)*P(5) 

170  CONTINUE 


***THIS  ELSE  AND  ENDIF  ARE  FOR  THE  TEST  AGAINST  NAXRUN*** 

ELSE 

WRITEC1, '( ' !  * ' ./' 'PROGRAM  EXCEEDED  THE  MAX  NO.  OF  RUNS' 1 , 
+' '  ALLOWED  OF:  "  ,16) ' )  TOTREP 
GOTO  9999 

END  IF 
GOTO  10 
END  IF 

WRITE( 2,' (" UNSORTED  RSHAT  1  IS:  * '  ,/10(F8.  c)) ' ) 
+(RSHAT(1.LOOP),  L00P=1,  MAXREP) 

WRITE(2,‘C" UNSORTED  RSHAT  2  IS:  ' '  ,/10(F8.  5)) * ) 
+(RSHAT(2,L00P),  L00P=1,  MAXREP) 

1F(FLAG.EQ. 1)  THEN 

WRITEC 2,' (" UNSORTED  RHTSTR  1  IS:  ' '  ,/10(F8. 5)) ' ) 

+(RHTSTR(  1 , 1/DOP) .  L00P=1,  MAXREP) 

WRITE(2,’(f 'UNSORTED  RHTSTR  2  IS:  "  ,/10(F8. 5)) ' ) 

+( RHTSTRC  2 , LOOP ) „  L00P=1,  MAXREP) 
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ELSE 
END  IF 

IF(K.  EQ..5)  THEN 

WRITE (2,’(" UNSORTED  RSHTBR  1  IS:  ,/10(F8. 5))  ) 

+(RSHTBR(  l  ,LOOP) L00P=1,  MAXREP) 

WRITE(2, '  ("UNSORTED  RSHTBR  2  IS:  ,/10(F8.  5))  ) 
+(RSHTBR(2,L00P) ,  LOOP=l,  MAXREP) 

ELSE 

END  IF  ,,  , 

WRITE  (2/ ("ZERO  AND  ONE  FAILURE  REPS:  ,/10(A8)) ') 

+  ( LOOPSO( LOOP ),LOOP=l, MAXREP) 

***SORT  THE  ARRAYS  OF  SYSTEM  UNRELIABILITIES (1  FOR  EACH  CONF.  LEVEL)*** 

DO  700  ALF=1,  MAXALF 

DO  800  REPS=1,  MAXREP 

TRANSQ(REPS)  =  QHTUPR( ALF , REPS ) 

TRANSR(REPS)  =  RSHAT( ALF, REPS) 

TRNSTR(REPS)  =  RHTSTR( ALF, REPS) 

TRANBR(REPS)  =  RSHTBR( ALF, REPS) 

800  CONTINUE 

CALL  SHS0RT(TRANSQ,KEY1, MAXREP) 

CALL  SHSORT(TRANSR,KEY2, MAXREP) 

CALL  SHSORT(TRNSTR,KEY3, MAXREP) 

CALL  SHS0RT(TRANBR,KEY4, MAXREP) 

DO  900  REPS=1,  MAXREP 

QHTUPR( ALF, REPS)  =  TRANSQ(REPS) 

RSHAT( ALF, REPS)  =  TRANSR(REPS) 

RHTSTR( ALF, REPS)  =  TRNSTR(REPS) 

.  RSHTBR( ALF, REPS)  =  TRANBR(REPS) 

900  CONTINUE 

700  CONTINUE 

***PRINT  OUTPUT  REPORT  HEADINGS*** 

WRITE( 1,6666) 

WRITE( 1,6667)  MAXREP 
WRITE( 1,6668)  K 
WRITE( 1,6669) 

IF(K. EQ. 5)  THEN 
WRITE( 1,6699) 

ELSE 
END  IF 

WRITE(1,6670)  MSTRQ 
WRITE( 1,6671) 

WRITE(1,C1C15) 

WRITE( 1,3334)  AI 
WRITE( 1,0007) 

WRITE(1,C1C15) 

WRITE( 1,3334)  QI 
WRITE( 1,0005) 

WRITE(1,C1C15) 

WRITE( 1,3335)  N 
WRITE( 1,6674) 


110 


***COMPUTE  THE  VALUE  RS  OF  THE  TRUE  SYSTEM  REL.  FNCTN.  (SERIES  SYSTEM)*** 
***  AND  FOR  THE  5 -COMPONENT  BRIDGE  STRUCTURE*** 

CALL  RSRS(QI ,K,RS) 

WRITEC  1,'("  '*,////  "THE  TRUE  SERIES  SYSTEM  ", 

+' 'RELIABILITY  VALUE  IS:  "  ,T51,F8.  5) ' )  RS 
CALL  RBRIDG(QI ,K, RSBRDG) 

IF(K.  EQ. 5)  THEN 

WRITE(1,'("  ".////"THE  TRUE  BRIDGE  STRUCTURE  ", 

+' 'RELIABILITY  VALUE  IS:  "  ,T51,F8. 5) ' )  RSBRDG 
ELSE 
END  IF 

WRITEC 1,6675) 

***COMPUTE  THE  DIFFERENCE  'DELTAR'  BTWN.  RS  AND  RSHAT  OF  THE  THEO*** 
***RETICAL  QUANTILE  GIVEN  BY  ALFA(MUST  USE  SORTED  RSHAT  ARRAY)*** 

IFCFLAG.  EQ.  T)  THEN 
WRITE( 1,5755) 

ELSE 
END  IF 

DO  450  ALF=1,  MAXALF 

QUANTL(ALF)  =  MAXREP  *  (1  -  ALFA(ALF)) 

DELTAR(ALF)  =  RS  -  RSHAT( ALF , QUANTLC  ALF) ) 

DELBRG(ALF)  =  RSBRDG  -  RSHTBR( ALF, QUANTL( ALF) ) 

IFCFLAG. EQ.  1)  THEN 

DELSTR(ALF)  =  RS  -  RHTSTR( ALF , QUANTL( ALF ) ) 

WRITE( 1,5555)  MAXREP,  ALFA(ALF),  REAL(QUANTL(ALF)) 

WRITEC 1,5656)  RHTSTR( ALF , QUANTLC ALF) ) 

WRITEC 1,5657)  DELSTR(ALF) 

ELSE 
END  IF 

IF(K. EQ.  5)  THEN 

DELBRG(ALF)  =  RSBRDG  -  RSHTBR( ALF, QUANTLC ALF)) 

WRITEC 1,5555)  MAXREP,  ALFA(ALF) ,  REAL( QUANTLC ALF)) 

WRITEC 1,5666)  RSHTBRC ALF, QUANTLC ALF)) 

WRITEC 1,5667)  DELBRG(ALF) 

ELSE 
END  IF 

WRITEC 1,5555)  MAXREP,  ALFA(ALF) ,  REALC QUANTLC ALF)) 

WRITEC 1,5556)  RSHAT( ALF, QUANTLC ALF)) 

WRITEC 1,5557)  DELTAR(ALF) 

450  CONTINUE 

PRINT*,  ’ QUANTLC  1)  IS:1,  QUANTLC  1) 

PRINT*,  *QUANTL( 2)  IS:',  QUANTLC 2) 

***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 

**A  -A-A-A  A~A-A  a~j':  RSHAT  *******  *** 

WRITEC 1,6676) 

DO  400  ALF=1, MAXALF 
TRUQNT(ALF)  =  0 

DO  500  REPS=1,  MAXREP 

DIFF(REPS)  =  RS  -  RSHATC ALF, REPS) 

500  CONTINUE 

DO  600  REPS=1,  MAXREP 


III 


IF(ABS(DIFF(REPS)). LE.  EPS)  THEN 
TRUQNT(ALF)  =  REPS 

WRITEC 1 ,  *  (  "  "  ,  /  "  TRUE  CONFIDENCE  LIMIT  IS: ' ' , 

+  F8.  4) 1 ) 

+  (TRUQNT(ALF)  /  RE AL( MAXREP))  *  100. 

GO  TO  620 

ELSEIFC DIFF( REPS ) .  LT.  0.  )  THEN 
TRUQNTC ALF)  =  REPS 
GO  TO  610 

ELSE 
END  IF 

600  CONTINUE 

610  IF(TRUQNT(ALF).EQ.  0.  )  THEN 

WRITE (1, 4443)  ALFA (ALF) 

WRITEC  1,' ("",/" THE  SMALLEST", 

+  * *  DIFFERENCE  BETWEEN  RS  AND  RSHAT  IS: ' ' ,F10. 5)' )  DIFF( 

+  MAXREP) 

ELSEIFC  TRUQNTC  ALF) . EQ. 1.  )  THEN 
WRITEC 1,4442)  ALFA(ALF) 

WRITEC  1,  *  C  ’  *  "./"ALL  RSHAT", 

+  "ARE  GREATER  THAN  RS' ’ )’) 

ELSEIFC ABS(DIFF(TRUQNT( ALF) )).LE.ABS(DIFF(TRUQNT( ALF)  -  1))) 
+  THEN 

WRITEC 1,4444)  ALFACALF), 

+  CTRUQNTCALF)  /  REALC MAXREP))  *  100. 

WRITEC 1,4445)  RSHATC ALF, TRUQNTC ALF)) 

WRITEC 1,4446) 

ELSE 

WRITEC 1,4444)  ALFACALF), 

+  (CTRUQNTCALF) -1)  /  REAL( MAXREP))  *  100. 

WRITEC 1,4445)  RSHAT ( ALF , TRUQNTC  ALF ) - 1 ) 

WRITEC 1,4447) 

620  END  IF 

400  CONTINUE 


***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 
***  ********  RSHTBR  (BRIDGE)  *******  *** 


IFCK.EQ.5)  THEN 
DO  401  ALF=1,MAXALF 
TRUQNTC ALF)  =  0 

DO  501  REPS=1 ,  MAXREP 

DIFF(REPS)  =  RSBRDG  -  RSHTBRC ALF, REPS) 

501  CONTINUE 

DO  601  REPS=1,  MAXREP 

IF(ABS(DIFF(REPS)). LE. EPS)  THEN 
TRUQNTC ALF)  =  REPS 

WRITEC 1 , ' ( * '  ' 1 , /  "  TRUE  CONFIDENCE  LIMIT  IS:  "  , 
+  F8. 4) ' ) 

+  (TRUQNTC ALF)  /  REAL(MAXREP))  *  100. 

GO  TO  621 

ELSEIF(DIFF(REPS). LT. 0. )  THEN 
TRUQNTC ALF)  =  REPS 
GO  TO  611 

ELSE 
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END  IF 

601  CONTINUE 

611  IF(TRUQNT(ALF).  EQ.  0. )  THEN 

WRITEC 1,4443)  ALFACALF) 

WRITEC 1 , '  C  "  "  ,  / ' '  THE  SMALLEST" , 

+  ' '  DIFFERENCE  BETWEEN  RSBRDG  AND  RSHTBR  IS:  "  , 

+  F10.5)')  DIFF(MAXREP) 

ELSEIF(TRUQNT(ALF).  EQ.  1.  )  THEN 
WRITEC 1,4442)  ALFA(ALF) 

WRITE(1,'(”  ",/" ALL  RSHTBR", 

+  "ARE  GREATER  THAN  RSBRDG")') 

ELSEIF(ABSCDIFF(TRUQNT(ALF))).LE.ABS(DIFF(TRUQNT(ALF)  -  1))) 
+  THEN 

WRITEC 1,4444)  ALFACALF), 

+  CTRUQNTCALF)  /  REALCMAXREP))  *  100. 

WRITEC 1,4449)  RSHTBRC ALF,TRUQNTCALF) ) 

WRITEC 1,4446) 

ELSE 

WRITEC 1,4444)  ALFACALF), 

+  C CTRUQNTCALF)-!)  /  REALCMAXREP))  *  100. 

WRITEC 1 , 4449 )  RSHTBRC ALF ,TRUQNTC ALF) - 1 ) 

WRITEC 1,4447) 

621  END  IF 

401  CONTINUE 
ELSE 

END  IF  : 


***FIND  THE  TRUE  CONFIDENCE  LEVEL  OF  THE  SYSTEM  REL.  ESTIMATE*** 

***  RHTSTR  ********  *** 

IFCFLAG.EQ.  1)  THEN 
DO  4400  ALF=1,MAXALF 
TRUQNTCALF)  =  0 

DO  5500  REPS=1 ,  MAXREP 

DIFFCREPS)  =  RS  -  RHTSTRC ALF, REPS) 

5500  CONTINUE 

DO  6600  REPS=1,  MAXREP 

IFCABSCDIFFCREPS)). LE.EPS)  THEN 
TRUQNTCALF)  =  REPS 

WRITEC 1, ' C ' ’  ' * 'TRUE  CONFIDENCE  LIMIT  IS:  "  , 
+  F8.4)‘) 

+  CTRUQNTCALF)  /  REALCMAXREP))  *  100. 

GO  TO  6620 

ELSEIFCDIFFCREPS).  LT.  0.  )  THEN 
TRUQNTCALF)  =  REPS 
GO  TO  6610 

ELSE 
END  IF 

6600  CONTINUE 

6610  IF(TRUQNTC ALF).  EQ. 0. )  THEN 

WRITEC 1,4443)  ALFACALF) 

WRITEC  1 , '  C ' '  ",/' THE  SMALLEST"  , 

+  ' '  DIFFERENCE  BETWEEN  RS  AND  RHTSTR  IS: ' ' , 

+  F9.5)')  DIFFCMAXREP) 

ELSEIFCTRUQNTCALF).EQ.l.  )  THEN 
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WRITEC 1,4442)  ALFA CALF) 

WRITE(1 , 1  (  "  '"'./"ALL  RHTSTR", 

+  "  ARE  GREATER  THAN  RS  "  ) ' ) 

ELSEIF(ABS(=DIFF(TRUQNT(ALF))).  LE.  ABS(DIFF(TRUQNT(ALF)  -  1))) 
+  THEN 

WRITER,  4444)  ALFA(ALF);, 

+  (TRUQNT(ALF)  /  REAL( MAXREP))  *  100. 

WRITEC 1,4448)  RHTSTR( ALF , TRUQNT(ALF) ) 

WRITEC!, 4446) 

ELSE 

WRITEC 1,4444)  ALFA(ALF) , 

+  ( ( TRUQNT( ALF ) - 1 )  /  REAL(MAXREP) )  *  100. 

WRITEC 1 , 4448 )  RHTSTRC ALF , TRUQNTC ALF) - 1 ) 

WRITEC 1,4447) 

6620  END  IF 

4400  CONTINUE 
ELSE 
END  IF 

***PRINT  THE  ARRAYS  PERTINENT  TO  THE  OUPUT  OF  EACH  REPLICATION*** 


IFCPRNT.EQ. 1)  THEN 
I  =  1 

185  WRITEC l.REPSHD)  ALFACSELCTA),  ALFAC SELCTA) , 

+ALFAC SELCTB) .ALFAC SELCTB) .ALFACSELCTA) ,ALFA( SELCTA) .ALFAC SELCTB) , 
+ALFACSELCTB) 

175  IFCI.GE.  CMAXREP  +  1))  THEN 
GOTO  180 

ELSE 

"  "  IFC  Cl.  EQ.  71).  OR.  Cl.  EQ.  211).  OR.  (I.  EQ.  351).  OR.  (I.  EQ.  491).  OR. 

+  Cl*  EQ.  631).  OR.  C I.  EQ.  771).  OR.  C I.  EQ.  911).  OR.  Cl.  EQ.  1051)  )  THEN 
I  =  I  +  70 
WRITEC  1 , 1  C  "+'  '  )') 

GOTO  185 

ELSE 

WRITEC 1,3336)  I,  INTCDEGFR(I)) ,  CHISQ(1,I),  QHTUPRCl.I), 

+  CHISQ(2,I),  QHTUPRC 2,1) 

END  IF 

IF( I  +  70.  LE. MAXREP)  THEN 

WRITEC 1 ,3337)  1+70 , INT(DEGFRC 1+70) ) , CHISQC 1 , 1+70) , 

+  QHTUPRC 1 , 1+70) , CHISQC 2 , 1+70) .QHTUPRC  2 , 1+70) 

ELSE 
END  IF 
1  =  1  +  1 
GOTO  175 
180  END  IF 
ELSE 
ENDIF 

9999  WRITEC  1,  *C '  'THE  TOTAL  NO  OF  REPS  WAS:",  18)')  TOTREP 

WRITEC  1,'C" THE  TOTAL  NO  OF  EFFECTIVE  REPS  WAS:  ".18)')  LOOP 
WRITEC  l‘,'C  "THE  TOTAL  NO  OF  NO  FAILURE  RUNS  WAS:  ,18)')  ZFAILS 
WRITEC  1,'C  "AVERAGE  NO.  OF  COMPONENTS  PER  REPLICATION  WITH  ", 
+"N0  FAILURES:  ",F5.  2)’)  ZFPREP  /  MAXREP 
WRITEC  1,'C  "THE  TOTAL  NO  OF  RUNS  WITH  FAILURES  WAS:  ",I8)’)  FAILS 
0008  FORMAT  C/  3X,'C  l',5X,'C  2', 


114 


+'C  12f,4X,'C  13',4X,'C  -*  .4X,'C  15') 

0009  F0RMAT(/TX, 'REP  NO1 ,2X. ,1X.  'CHISQR( '  ,F4.  3, ’ )’ ,1X. 

+' QHTUPR( '  ,F4.  3 , '  ) ' . IX, f CHISQRC '  .F4.  3 , ' ) ’ .  IX, ' QHTUPR( ' ,F4. 3 , ' ) ' , 
+2X , ' REP  NO ' , 2X , ' DF f , IX .  ' CHI SQR( ' , F4.  3 . 1 ) ' , IX . 

+' QHTUPR( ' ,F4.  3, ' ) ' , IX, ‘ CHISQRC ' ,F4.  3 ,  ) '  IX, fQHTUPR( ' ,F4.  3 , ' ) ’ /) 
0001  FORMAT  (///'UNIFORM  RANDOM  DEVIATES  ARE:  f) 

0002  FORMAT  (///’BERNOULLI  TRIALS  ARE: ' ) 

0003  FORMAT  (///'TOTAL  NO.  OF  FAILURES  FOR  EACH  COMPONENT: ') 

0004  FORMAT  (///'ESTIMATED  UNRELIABILITY  FOR  EACH  COMPONENT:  ’ ) 

0005  FORMAT  (///'TOTAL  NUMBER  OF  MISSION  TESTS:') 

0006  FORMAT  (///'ESTIMATED  WEIGHTS  FOR  EACH  COMPONENT: ') 

0007  FORMAT  C///’Q  I  FOR  EACH  COMPONENT:  ') 

1111  FORMAT  (15F8.5) 


2222  FORMAT 

3333  FORMAT 

3334  FORMAT 

3335  FORMAT 

3336  FORMAT 

3337  FORMAT 

4442  FORMAT 
+' LIMIT 

4443  FORMAT 
+' LIMIT 

4444  FORMAT 
+' LIMIT 

4445  FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

5556  FORMAT 

5557  FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


C/1X,15(I4,4X)) 

(/IX, 15(14, 4X)) 

(/15F8.5) 

(/IX, 15(14, 4X)) 

(T3.I4,T9,I3,T13,F11.  5.T27.F8.  5,T39,F11. 5,T53,F8.  5) 

('+f  ,T67.I4,T73,I3,T77,F11.5.T91,F8.5,T103,F11.5,T117,F8.5) 
(’  ', ///'THE  RESULTING  (1  -  ' ,F4. : 


'',//'/*  THE  RESULTING 

«  -rcn  * 


4446 

4447 

4448 

4449 
5555 


5656 

5666 

5657 

5667 
5755 


IS:  ' ,T50 
('  ‘ 

IS:  ' ,T50 
(’  ‘ 

IS: 

(’ 


00.000  ') 


100. 0000') 


',///' THE  RESULTING 
' ,T50,F8. 4) 

t  ■ 


3,')  CONFIDENCE 


(1  -  ' ,F4.  3, ' )  CONFIDENCE 
(1  -  ' ,F4. 3, ' )  CONFIDENCE 


,/'THE  RSHAT  VALUE 
'./'(FIRST  NEGATIVE 


,T51,F8.  5) 


CLOSEST  TO  RS  IS: 

DIFFERENCE)') 

’  ./'(ELEMENT  PRECEEDING  FIRST  NEGATIVE  DIFFERENCE)') 

'  ,/'THE  RHTSTR  VALUE  CLOSEST  TO  RS  IS:  ',T51,F8.5) 

'  ,/'THE  RSHTBR  VALUE  CLOSEST  TO  RSBRDG  IS:  ' ,T51,F8. 5) 


('  './//'THE  ' ,I4,'(1-' ,F4.3,')  QUANTILE  IS:  ' ,T49 ,F8. 3) 


(! 


'  ,/'THE 
’  ,/'THE 
'  7 'THE 


' ,/'THE 
' ,/'THE 


VALUE  OF  RSHAT  FOR  THAT  QUANTILE  IS: ' ,T51,F8.5) 
DIFFERENCES  -  RSHAT)  IS:  '  ,T51,F8.  5) 

VALUE  OF  RHTSTR  FOR  THAT  QUANTILE  IS: ’ ,T51,F8.5) 
VALUE  OF  RSHTBR  FOR  THAT  QUANTILE  IS:  \T51,F8.5) 
DIFFERENCE (RS  -  RHTSTR)  IS: ' ,T51,F8. 5) 


('  '  ,/'THE  DIFFERENCES  -  RSHTBR)  IS:  '  ,T51,F8.  5) 

Cf  ' 


'.///'SINCE  THE  NO.  OF  MISSION  TESTS  IS  THE  SAME  FOR', 

C.L  COMP 

"'RHTSTR"  IS  COMPUTED') 


+'  ALL  COMPONENTS  THE  CLOSED  FORM  SERIES  SYSTEM  RELIABILITY 


6666  FORMAT  (  '+'  ,  '  1  } 

RUN  INPUT^ SETTINGS 

’ .//’NUMBER  OF  REPLICATIONS:  ' ,T50,I4) 

' .//'NUMBER  OF  COMPONENTS:  ’ ,T50,I4) 

'.//'SYSTEM  RELIABILITY  FUNCTION: ' ,T50,' SERIES ’ ) 
'.//’SYSTEM  RELIABILITY  FUNCTION: ' ,T50, 'BRIDGE' ) 
'.//’MASTER  UNRELIABILITY  USED: ’.T50.F8.5) 

’.//'INPUT  WEIGHTS(A  SUB  l"S):') 

(’+’ ,///’’ 

N  R  E  S  U 


6667 

6668 

6669 
6699 

6670 

6671 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

6674  FORMAT 
+'**R  U 

+'  ************** ' ) 

6675  FORMAT  (’+’,///' 


(’ 

(' 

i: 

(’ 

(’ 


4:  4- 


1  ESTIMATE  ERRORS  ********************************************* 1 
1  ************** 1 ) 

6676  FORMAT  ('+' /y /’ *********************************************** ' 
+'  TRUE  CONFIDENCE  LIMITS  *************************************** f 

+ 1  ************** ' ) 

END 
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APPENDIX  I.  SUBROUTINES 

IMSL  ROUTINE  NAME  -  USMNMX  USMN0010 

USMN0020 

- . - . USMN0030 

USMN0040 

COMPUTER  -  IBM/SINGLE  USMN0050 

USMN0060 

LATEST  REVISION  -  JANUARY  1,  1978  USMN0070 

USMN0080 

PURPOSE  -  DETERMINATION  OF  THE  MINIMUM  AND  MAXIMUM  USMN0090 

VALUES  OF  A  VECTOR  USMN0100 

USMN0110 

USAGE  -  CALL  USMNMX  (X,N, INC, XMIN, XMAX)  USMN0120 

USMN0130 

ARGUMENTS  X  -  INPUT  VECTOR  OF  LENGTH  N  FROM  WHICH  MINIMUM,  USMN0140 

MAXIMUM  VALUES  ARE  TO  BE  TAKEN.  USMN0150 

N  -  LENGTH  OF  THE  INPUT  VECTOR  X.  (INPUT)  USMN0160 

INC  -  DISPLACEMENT  BETWEEN  CONSECUTIVE  VALUES  OF  X  USMN0170 

TO  BE  CONSIDERED.  USMN0180 

XMIN  -  OUTPUT  SCALAR  CONTAINING  MINIMUM  VALUE  OF  X.  USMN0190 

XMAX  -  OUTPUT  SCALAR  CONTAINING  MAXIMUM  VALUE  OF  X.  USMN0200 

USMN0210 

PRECISION/HARDWARE  -  SINGLE  AND  DOUBLE/H32  USMN0220 

-  SINGLE/H36,H48,H60  USMN0230 

USMN0240 

REQD.  IMSL  ROUTINES  -  NONE  REQUIRED  USMN0250 

USMN0260 

NOTATION  -  INFORMATION  ON  SPECIAL  NOTATION  AND  USMN0270 

CONVENTIONS  IS  AVAILABLE  IN  THE  MANUAL  USMN0280 

INTRODUCTION  OR  THROUGH  IMSL  ROUTINE  UHELP  USMN0290 

USMN0300 

COPYRIGHT  -  1978  BY  IMSL,  INC.  ALL  RIGHTS  RESERVED.  USMN0310 

USMN0320 

WARRANTY  -  IMSL  WARRANTS  ONLY  THAT  IMSL  TESTING  HAS  BEEN  USMN0330 

APPLIED  TO  THIS  CODE.  NO  OTHER  WARRANTY,  USMN0340 
EXPRESSED  OR  IMPLIED,  IS  APPLICABLE.  USMN0350 


USMN0360 
USMN0370 
USMN0380 

SUBROUTINE  USMNMX  (X,N, INC, XMIN, XMAX)  USMN0390 

C  USMN0400 

DIMENSION  X(N)  USMN0410 

C  FIRST  EXECUTABLE  STATEMENT  USMN0420 

XMIN  =  X(l)  USMN0430 

XMAX  =  X(l)  USMN0440 

DO  10  1=1, N, INC  USMN0450 

IF  (X(I)  .GE.  XMIN)  GO  TO  5  USMN0460 

XMIN  =  X(I)  USMN0470 

GO  TO  10  USMN0480 

5  IF  (X(I)  .GT.  XMAX)  XMAX  =  X(I)  USMN0490 

10  CONTINUE  USMN0500 

RETURN  USMN0510 
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END 


A. 


IDENTIFICATION: 

TITLE:  NUMERICAL  SORT 

ID:  M1-NPG-SHS0RT  (F-IV) 

PROGRAMMER:  R.  BRUNELL 

DATE:  MARCH  1968 

MODIFIED:  DEC.  1973  BY  L.  NOLAN: 


B. 


D. 


USMN0520 

S0RT0010 

SORT0020 

SORT0030 

S0RT0040 

SORTOOSO 

SORT0060 

SORT0070 

S0RT0080 

S0RT0090 

SORTOIOO 

S0RT0110 


PURPOSE: 

TO  SORT,  IN  ASCENDING  ORDER,  AN  ARRAY  OF  SINGLE  PRECISION  REAL 
NUMBERS  BY  THE  METHOD  OF  SHELL,  AND  TO  PRODUCE  AN  ARRAY  OF  INDEXESS0RT0120 
SO  USER  CAN  RE-ORDER  OTHER  CORRESPONDING  INFORMATION  ACCORDING  TO  S0RT0130 


ASCENDING  VALUES  OF  "A". 
USAGE: 

1.  CALLING  STATEMENT: 
CALL  SHSORT(A,KEY,N) 
ARGUMENTS: 


2. 


A  -  ARRAY  OF  NUMBERS  TO  BE  SORTED.  THIS  ARRAY  IS  SORTED 
(RE-ORDERED)  BY  "SHSORT". 

KEY  -  ARRAY,  DIMENSIONED  AT  LEAST  N  IN  CALLING  PROGRAM,  TO  BE 
FILLED  BY  USER  WITH  INTEGERS  FROM  i  TO  N.  AFTER  EXIT 
FROM  SHSORT,  KEY(l)  WILL  CONTAIN  THE  ORIGINAL  INDEX  OF 
THE  SMALLEST  ELEMENT  OF  "A";  KEY(2)  WILL  CONTAIN  THE 
ORIGINAL  INDEX  OF  THE  NEXT-TO -SMALLEST  ELEMENT  OF  "A"; 
ETC.  KEY(N)  WILL  CONTAIN  THE  ORIGINAL  INDEX  OF  THE 
LARGEST  ELEMENT  OF  "A". 

N  -  NUMBER  OF  MEMBERS  IN  ARRAYS  "A"  AND  "KEY”. 

REFERENCES: 

1.  "ALGORITHM  201,  SHELLSORT",  BOOTHROYD,  J.  ,  "COMMUNICATIONS  OF 


SORT0140 

SORT0150 

SORT0160 

S0RT0170 

S0RT0180 

SORT0190 

SORT0200 

S0RT0210 

S0RT0220 

SORT0230 

SORT0240 

SORT0250 

SORT0260 

SORT0270 

S0RT0280 

S0RT0290 

SORT0300 

SORT0310 

SORT0320 


ACM",  VOL  6,  NO  8,  AUGUST  1963,  P.445. 

SORT0330 

2.  "CERTIFICATION  OF  ALGORITHM 

201",  BATTYjM. A. ,  "COMMUNICATIONS 

S0RT0340 

OF  ACM",  VOL  7,  NO  6,  JUNE 

1964,  P.349. 

SORT0350 

SORT0360 

SUBROUTINE  SHSORT(A,KEY,N) 

SORT0370 

DIMENSION  A(N) ,KEY(N) 

SORT0380 

Ml=l 

SORT0390 

6  M1=M1*2 

SORT0400 

IF  (Ml  .LE.  N)  GO  TO  6 

SORT0410 

Ml=Ml/2-l 

SORT0420 

MM=MAX0(Ml/2, 1) 

SORT0430 

GO  TO  21 

S0RT0440 

20  MM=MM/2 

SORT0450 

IF  (MM  .LE.  0)  GO  TO  100 

SORT0460 

21  K=N-MM 

S0RT0470 

22  DO  1  J=1,K 

SORT0480 

II=J 

S0RT0490 

11  IM=II+MM 

S0RT0500 

IF  (A(IM)  .GE.  A(II))  GO  TO  1 

SORT05 10 

TEMP=A( II) 

SORT0520 

IT=KEY( II) 

S0RT0530 

i 


A 
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A(II)=A(IM) 

S0RT0540 

KEY (II )=KEY( IM) 

S0RT0550 

A(IM)=TEMP 

S0RT0560 

KEY(IM)=IT 

S0RT0570 

II=II-MM 

S0RT0580 

IF  (  II  .  GT.  0)  GO  TO  11 

S0RT0590 

1  CONTINUE 

S0RT0600 

GO  TO  20 

SORT0610 

100  RETURN 

SORT0620 

END 

SORT0630 

SUBROUTINE  RHTSRS ( QHTUP , AAHTI , N , RRSHAT) 

***//  THIS  ROUTINE  CALCULATES  THE  VALUE  OF  THE  SYSTEM  RELIABILITY  OF  A 
***//  SERIES  SYSTEM  OF  'N'  NO.  OF  COMPONENTS  WHICH  HAVE  UNRELIABILITY 
***//  1 OHTUP * .  THE  FINAL  SYSTEM  RELIABILITY  VALUE  PASSED  IS  'RRSHAT* 
REALM  QHTUP,  RRSHAT,  AAHTI (N) 

INTEGER  I,  N 
RRSHAT  =  1. 

DO  100  1=1,  N 

RRSHAT  =  RRSHAT  *  (1  -(AAHTI(I)*  QHTUP)) 

100  CONTINUE 
END 


SUBROUTINE  RSRS(QIS,N,RRS) 

***//  THIS  ROUTINE  CALCULATES  THE  VALUE  OF  THE  SYSTEM  RELIABILITY  OF  A 
***//  SERIES  SYSTEM  OF  'COMP'  NO.  OF  COMPONENTS  WHICH  HAVE  UNRELIABILITY 
***//  'QIS'.  THE  FINAL  SYSTEM  RELIABILITY  VALUE  PASSED  IS  'RRS' 

REALM  QIS(N) ,  RRS 
INTEGER  I,  N 
RRS  =  1. 

DO  100  1=1,  N 

RRS  =  RRS  *  (1  -  QIS(I)) 

100  CONTINUE 
END 


***//  THIS  SUBROUTINE  CALCULATES  THE  ESTIMATED  RELIABILITY  OF  A 
***//  5-COMPONENT  BRIDGE  STRUCTURE.  (ONLY  CARRIED  OUT  TO  THE  Q-CUBED  TERM 
SUBROUTINE  RHTBRG( QHTUP , AHT,N , RRBRDG) 

REALM  QHTUP,  RRBRDG,  AHT(N) 

INTEGER  N 

*  PRINT  *,  'THE  VALUES  FOR  AHAT  PASSED  ARE: * ,AHT 
RRBRDG=1 - ( ( QHTUP**2)*(AHT( 1 ) *AHT( 2 ) +AHT( 4) *AHT( 5 ) )  )  - 

C( (QHTUP**3)*(AHT( 1)*AHT( 3)*AHT(5)+AHT(2)*AHT(3)*AHT(4) ) )+ 
C((QHTUP*M)*(AHT(1)*AHT(2)*AHT(3)*AHT(4)+AHT( 1)*AHT(2)*AHT(3)* 
CAHT(5)+AHT( 1)*AHT(2)*AHT(4)*AHT(5)+AHT(1)*AHT(3)*AHT(4)*AHT(5)+ 
CAHTC  2)*AHT( 3)*AHT( 4)*AHT( 5)))- 

C2*( (QHTUP**5 )*( AHT( 1)*AHT( 2)*AHT( 3)*AHT(4)*AHT(5) ) ) 

*  PRINT  *,  'COMPUTED  RRBRDG  IS:',  RRBRDG 
END 


SUBROUTINE  CPARE(FI,K,BFLAG) 


INTEGER  BFLAG, FI (K) 

BFLAG=0- 

IF  ((FI(l)  .EQ.  0)  .AND.  (FI(3)  .EQ.  0)  .AND. 

+  (FI(5)  .EQ.  0))  THEN 

BFLAG=0 

ELSE  IF  ((FI(1)  .EQ.  0)  .AND.  (FI(4)  .EQ.  0))  THEN 
BFLAG  =  0 

ELSE  IF  ((FI(2)  .EQ.  0)  .AND.  (FI(5)  .EQ.  0))  THEN 
BFLAG  =  0 

ELSE  IF  ((FI(2)  .EQ.  0)  .AND.  (FI(3)  .EQ.  0)  .AND. 

+  (FI(4)  .EQ,  0))  THEN 

BFLAG  =  0 

ELSE  IF  (((FI(1)  .EQ.  1)  .AND.  (FI(2)  .EQ.  1))  .AND. 

+  C(FI(2)  .EQ.  0)  .AND.  (FI(4)  .EQ.  0)  .AND. 

+  (FI(5)  .EQ.  0)))  THEN 

BFLAG  =  1 

ELSE  IF  (((FI(4)  .EQ.  1)  .AND.  (FI(5)  .EQ.  1))  .AND. 

+  ((F-I(l)  .EQ.  0)  .AND.  (FI(2)  .EQ.  0)  .AND. 

+  (FI (3)  .EQ.  0)))  THEN 

BFLAG  =  1 

ELSE  IF  (((FI(2)  .EQ.  0)  .AND.  (FI(4)  .EQ.  0))  .AND. 

+  ((FI(1)  .EQ.  1)  .AND.  (FI(3)  .EQ.  1)  .AND. 

+  (FI(5)  .EQ.  1)))  THEN 

BFLAG  =  1 

ELSE  IF  C ( ( FI C 1)  .EQ.  0)  .AND.  (FI(5)  .EQ.  0))  .AND. 

+  ((FT.(2)  .EQ.  1)  .AND.  (FI(3)  .EQ.  1)  .AND. 

+  (FI(4)  .EQ.  1)))  THEN 

BFLAG  =  1 

ELSE 

BFLAG  =  2 

ENDIF 

RETURN 

END 


***//  THIS  SUBROUTINE  CALCULATES  THE  "TRUE"  RELIABILITY  OF  A  5-COMPONENT 
***//  BRIDGE  STRUCTURE 

SUBROUTINE  RBRIDG(QI ,N,RRSS) 

REAL*4  QI(N) ,  RRSS 
INTEGER  N 
IF(N.NE.S)  THEN 

WRITE(  1 , '  (  "  WARNING:  BRIDGE  STRUCTURE  ONLY  USES  ", 

+' 'THE  FIRST  5  COMPONENTS’ ' ) ' ) 

ELSE 
END  IF 

RRSS=( 1-QI( 1) )*( 1-QI(4) )+( 1-QI( 2) )*( 1-QI(5) )+( 1-QI( 1) )*( 1-QI( 3) )* 
C(1-QI(5))+(1-QI(2))*(1-QI(3))*(1-QI(4))-(1-QI(1))*(1-QI(2))* 
C(1-QI(3))*(1-QI(4))-(1-QI(1))*(1-QI(2))*(1-QI(3))*(1-QI(5))- 
C(1-QI(T))*(1-QI(2))*(1-QI(4))*(1-QI(5))-(1-QI(1))*(1-QI(3))* 
C(1"QI(4))*( 1-QI(5))-(1-QI(2))*( 1-QI(3))*(1-QI(4))*(1-QI(5))+ 

C2*( 1-QI( 1) )*( I-QI(2) )*( 1-QI(3) )*( 1-QI(4) )*( 1-QI(5) ) 

END 
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